TEdit komplett markieren bei Mausklick

[Michael Habbe]

Es gibt noch 'ne Möglichkeit:

Delphi-Quellcode:

procedure btnXYClick(Sender: TObject);
begin
  edt.SetFocus;
  edt.SelStart := 0;
  edt.SelLength := Length(edt.Text);
end;

Ich weiss nicht, obs auch mit OnEnter klappt. Ausprobieren.
btnXY ist bei mir ein Defaultbutton.

Könnte aber sein, dass auch dieses nicht beim Klick funktioniert.
Ich vermute, dass die Reihenfolge der Ereignisse erst den OnFocus auslöst und dann das Klick den Focus an die Position der Maus setzt und damit die Selektion aufhebt.

Dann könntest Du aber das OnClick-Ereignis mal testen, obs in der Routine funktioniert.