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

Имеется ListView со встроенной поисковой строкой.
Как вставить в эту строку произвольный текст?
Например: "Введите запрос..." или загрузить текст из поля Memo.
  • Вопрос задан
  • 44 просмотра
Решения вопроса 1
tsklab
@tsklab
Здесь отвечаю на вопросы.
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;
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы