Gönderen Konu: ListBox Ve ComoBox'da Arama (Auto Search) (Okunma sayısı 1944 defa)

Subhan · « : 29 Ağustos 2008 10:44:40 »

Foram TListBox ve ya ComoBox hangisi ihtiyac duyuyorsanız ekleyin

ListBox'un üzerindinde hangi klavıye tüşlarını basarsanız ve bastığınz tüşla başlaya İtem gösterir

Kod: [Seç]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    FSearchStr: string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
var
  i: Integer;
begin
  Case Key of
    #27: Begin
           
           FSearchStr := EmptyStr;
         End; { Case Esc }
    #8 : Begin
           
           If Length(FSearchStr) > 0 Then
             Delete( FSearchStr, Length( FSearchStr), 1 );
         End; { Case backspace }
    Else
      FSearchStr:= FSearchStr + Key;
  End; { Case }
  If Length(FSearchStr) > 0 then
    if Sender is TListbox then Begin
      i:= SendMessage( TListbox(Sender).handle, LB_FINDSTRING,
                       TListbox(Sender).ItemIndex, longint(@FSearchStr[1]));
      If i <> LB_ERR Then
        TListbox(Sender).ItemIndex := i;
    end
    else
      if Sender is TCombobox then begin
        i:= SendMessage( TCombobox(Sender).handle, CB_FINDSTRING,
                         TCombobox(Sender).ItemIndex, longint(@FSearchStr[1]));
        If i <> LB_ERR Then
          TCombobox(Sender).ItemIndex := i;
      end;
  Key := #0;
  FSearchStr := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FSearchStr := '';
end;

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: ListBox Ve ComoBox'da Arama (Auto Search) (Okunma sayısı 1944 defa)

Subhan

ListBox Ve ComoBox'da Arama (Auto Search)