OnEnter und markieren

[Luckie]

OnFocus gibt es nicht, nur OnEnter, aber da funktioniert das:

Delphi-Quellcode:

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Edit2.SelStart := 0;
  Edit2.SelLength := length(Edit2.Text);
end;

irgendwie nicht.

Code:

Edit2.SelectALL;

geht auch irgendwie nicht.

Und wenn du mit der Maus reinklickst wird nicht alles automatisch markiert, nur wenn du mit TAB in das Edit kommst.

Aber das geht:

Delphi-Quellcode:

procedure TForm1.Edit2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit2.SelectAll;
end;

Nur wird es dann etwas kompliziert, wenn man den Cursor mit der Maus plazieren will. SDo wie es jetzt ist, sogar unmöglich für den Benutzer.