Automatische Vervollständigung bei Eingabe?

[Memo]

Zitat von mandumoal:

Gibt es da eventuell eine Kompo oder so..?

Eine Komponente hab ich mal irgenwann gesucht, aber nicht gefunden.

In guter alter Handarbeit hab ich das schonmal erledigt. Der zu ergenzende Text stamm in dem fall aus einer Tabelle, aber das kann man sich ja umstellen wie mans braucht.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var name1 :String;
    i : Integer;
begin
    name1 := Edit1.Text;
    i := Length(name1);
    if i > 0 then begin
     if Table.Locate('Name',VarArrayOf([name1]),[loPartialKey]) then //oder eine andere Quelle
     begin
      Edit1.Text := Table1.FieldbyName('Name').asString;
      i := Length(name1);
      Edit1.SelStart := i;
      Edit1.SelLength := length(Edit1.Text)-1
     end;
    end;
end;

Das einzigste was ich nicht hinbekommen habe war das der Cursor hinten am Text blinkte. Aber das ist reine Optik.