Registriert seit: 19. Dez 2005
Ort: Rosdorf
2.022 Beiträge
Turbo Delphi für Win32
|
Re: Autocompletion bei DBEdit ?
23. Mai 2006, 14:51
Delphi-Quellcode:
type
TForm8 = class(TForm)
Edit1: TEdit;
Liste: TListBox;
procedure Edit1Change(Sender: TObject);
procedure towel(Sender: TObject);
[...]
implementation
{$R *.dfm}
procedure TForm8.towel(Sender: TObject);
begin
;
end;
procedure TForm8.Edit1Change(Sender: TObject);
var i, OldLength: Integer;
begin
if Edit1.Text='' then exit;
for i := 0 to Liste.Count-1 do
begin
if copy(Liste.Items[i], 1, Length(Edit1.Text))=Edit1.Text then
begin
Edit1.OnChange:=towel;
OldLength:=Length(Edit1.Text);
Edit1.Text:=Liste.Items[i];
Edit1.SelStart:=OldLength;
Edit1.SelLength:=Length(Edit1.Text);
Edit1.OnChange:=Edit1Change;
exit;
end;
end;
end;
SO par example
Nikolai Wyderka 
SWIM SWIM HUNGRY!
Neuer Blog: hier!
|
|
Zitat
|