Hallo,
Zitat von
die Suchende:
...dafür jetzt extra noch 'ne globale Variable machen zu müssen ...
kannst doch die Tag-Eigenschaft des Edit dafür nutzen:
Delphi-Quellcode:
//OnEnter
Edit.Tag := 1;
//OnMouseDown
if Edit.Tag = 1 then
begin
Edit.Tag := 0;
Edit.SelectAll;
end;
Das "annormales" ist normal
SelectAll selektiert auch, Du siehst es nur nicht, weil die Eigenschaft Edit.HideSelection bei dem Edit auf True gesetzt ist.
Bei SetFocus greift die Eigenschaft Edit.AutoSelect.
//Edit: kein roter Kasten, ehrlich