Edit.SelectAll beim OnEnter - Probleme

[Lannes]

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