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

Материал из DRKB

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

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

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ListBox1.Perform(LB_SELECTSTRING, -1, LongInt(PChar(Edit1.Text)));
end;


Source: Взято из http://forum.sources.ru
ID: 00655