TEdit komplett markieren bei Mausklick

[Namenloser]

Zitat von MichaelLinden:

Wieso nicht ganz einfach so:

Delphi-Quellcode:

procedure TForm1.Edit1Click(Sender: TObject);
begin
 Edit1.SelectAll;
end;

Weil man auch über die Tab-Taste das Edit fokussieren kann.