Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Инкрементальный поиск в TListBox

01.01.2007

Я видел приложение, в котором ListBox позволял осуществлять инкрементальный поиск. При вводе очередного символа он позиционирует вас к первой ячейке, начало значения которой совпадает с введенным пользователем текстом, или выделяет все строки с текстом, содержащим введенный текст.

Как это осуществить на Delphi?

Здесь придется немного воспользоваться Win API. Установите свойство формы KeyPreview в True и сделайте примерно следующее:

unit LbxSrch;
 
interface
 
uses
 
Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls;
 
type
 
TFrmLbxSrch = class(TForm)
    Edit1
: TEdit;
    Edit2
: TEdit;
    ListBox1
: TListBox;
    Label1
: TLabel;
    procedure
FormKeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Enter
(Sender: TObject);
 
private { Private declarations }
   
FPrefix: array[0..255] of char;
 
public
   
{ Public declarations }
 
end;
 
var
 
FrmLbxSrch: TFrmLbxSrch;
 
implementation
 
{$R *.DFM}
 
procedure
TFrmLbxSrch.FormKeyPress(Sender: TObject; var Key: Char);
{ Помните о том, что свойство KeyPreview должно быть установлено в True }
var
  curKey
: array[0..1] of char;
  ndx
: integer;
begin
 
if ActiveControl = ListBox1 then
 
begin
   
if key = #8 {Backspace (клавиша возврата)} then
   
begin
     
if FPrefix[0] <> #0 then
     
begin
       
FPrefix[StrLen(FPrefix) - 1] := #0;
     
end
   
end
   
else
   
begin
      curKey
[0] := Key;
      curKey
[1] := #0;
     
StrCat(FPrefix, curKey);
      ndx
:= SendMessage(ListBox1.Handle, LB_FINDSTRING,
       
-1, longint(@FPrefix));
     
if ndx <> LB_ERR then
        ListBox1
.ItemIndex := ndx;
   
end;
 
    Label1
.Caption := StrPas(FPrefix);
   
Key := #0;
 
end;
end;
 
procedure
TFrmLbxSrch.ListBox1Enter(Sender: TObject);
begin
 
FPrefix[0] := #0;
  Label1
.Caption := StrPas(FPrefix);
end;
 
end.

Автор: Ralph Friedman

Взято с https://delphiworld.narod.ru


Предположим, что ListBox сортируется, это не трудно. Вы должны разместить компонент Edit выше ListBox и создать следующий обработчик его случая OnChange:

procedure TForm1.Edit1Change(Sender: TObject);
var
 
Ndx: Word;
begin
 
with Sender as TEdit do
 
begin
   
Ndx := ListBox1.Items.Add(Text);
    ListBox1
.Items.Delete(Ndx);
   
if CompareText(Text, Copy(ListBox1.Items[Ndx], 1, Length(Text))) = 0 then
      ListBox1
.ItemIndex := Ndx
   
else
      ListBox1
.ItemIndex := -1;
 
end;
end;

Пытаясь вставить часть текста, вы просто просматриваете список на предмет его наличия. Если актуальный элемент в этой позиции содержит "частичный" текст, мы выводим его, в противном случае делаем так, чтобы ListBox не имел выделенного (ItemIndex) элемента.

Взято с https://delphiworld.narod.ru