Delphi - база знаний


Как осуществить быстрый поиск в Listbox?


Как осуществить быстрый поиск в Listbox?



Очень просто, смотри пример....
считаем, сто есть поле Edit1, в котором набираем текст, и ListBox, в котором ищем нужную строку, (как в Нelp).

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ListBox1.Perform(LB_SELECTSTRING,-1,longint(Pchar(Edit1.text)));
end;



Взято с Исходников.ru





Начало  Назад  Вперед