Autocompletion bei DBEdit ?

[inherited]

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