Как передать текст в строку поиска ListView?

Question

[Александр Вишнев]

Имеется ListView со встроенной поисковой строкой.
Как вставить в эту строку произвольный текст?
Например: "Введите запрос..." или загрузить текст из поля Memo.

Answer 1

[Константин Цветков]

procedure TForm4.Button2Click(Sender: TObject);
var
  LItem: TListViewItem;
  I: Integer;
begin
  for I := 1 to 10 do
  begin
    LItem := ListView1.Items.Add;
    LItem.Text := 'Test' + IntToStr(I);
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
  var I: Integer;
begin
for I := 0 to ListView1.Controls.Count-1 do
  if ListView1.Controls[I] is TSearchBox then
  begin
    TSearchBox(ListView1.Controls[I]).Text := 'Test5';
  end;
end;

Comments

[Александр Вишнев]

Спасибо! То что надо!