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

Автор: Ralph Friedman

Я видел приложение, в котором 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.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 612 • TDictionary Custom Sort 6 618 • Fast Watermark Sources 6 394 • 3D Designer 9 340 • Sik Screen Capture 6 726 • Patch Maker 7 111 • Айболит (remote control) 7 116 • ListBox Drag & Drop 5 977 • Доска для игры Реверси 97 544 • Графические эффекты 7 313 • Рисование по маске 6 600 • Перетаскивание изображений 5 472 • Canvas Drawing 5 849 • Рисование Луны 5 565 • Поворот изображения 5 079 • Рисование стержней 3 650 • Paint on Shape 2 883 • Генератор кроссвордов 3 778 • Головоломка Paletto 3 034 • Теорема Монжа об окружностях 3 847 • Пазл Numbrix 2 531 • Заборы и коммивояжеры 3 242 • Игра HIP 2 206 • Игра Go (Го) 2 138 • Симулятор лифта 2 520 • Программа укладки плитки 2 163 • Генератор лабиринта 2 657 • Проверка числового ввода 2 314 • HEX View 2 647 • Физический маятник 2 275

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

Похожие по теме исходники