Edit-Feld markieren

[Opa Knack]

Hallo,

wenn ich mit der Tabtaste durch die Objekte springe, wird der Inhalt eines Edits ja immer gleich komplett markiert, sobald der Zeiger auf ihn trifft. Diesen Effekt möchte ich gerne umsetzen, wenn eine bestimmte Länge im Feld erreicht ist (sprich z. B. 7 Zeichen wurden eingegeben, dann wird das Feld komplett markiert und kann direkt wieder überschrieben werden). Die Abfrage habe ich ja soweit hinbekommen, aber das Markieren haut nicht hin. Weder mit Focus noch Select kann ich dies erreichen.

Hat jemand einen Tipp, wie ich dies umsetzen kann?

Danke
Opa

[Sharky]

Hai Opa,

schaue Dir mal SelStart und SelLength an. Das sollte helfen ;-)

[_Sebastian_]

Delphi-Quellcode:

Edit1.SetFocus

sollte dir da denke ich weiterhelfen

[eddy]

Hallo Opa Knack,

das sollte über TEdit.SelectAll funktionieren.

mfg
eddy

[mr47]

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if length(edit1.Text)>=7 then edit1.SelectAll;
end;

grüsse