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.