Инкрементальный поиск в 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 (Тетрис) 3 915 • TDictionary Custom Sort 6 019 • Fast Watermark Sources 5 809 • 3D Designer 8 623 • Sik Screen Capture 6 144 • Patch Maker 6 582 • Айболит (remote control) 6 570 • ListBox Drag & Drop 5 432 • Доска для игры Реверси 95 329 • Графические эффекты 6 785 • Рисование по маске 5 947 • Перетаскивание изображений 4 954 • Canvas Drawing 5 333 • Рисование Луны 5 054 • Поворот изображения 4 601 • Рисование стержней 3 259 • Paint on Shape 2 497 • Генератор кроссвордов 3 382 • Головоломка Paletto 2 694 • Теорема Монжа об окружностях 3 475 • Пазл Numbrix 2 289 • Заборы и коммивояжеры 2 972 • Игра HIP 1 939 • Игра Go (Го) 1 854 • Симулятор лифта 2 191 • Программа укладки плитки 1 921 • Генератор лабиринта 2 362 • Проверка числового ввода 2 047 • HEX View 2 367 • Физический маятник 2 003

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

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