So, mal genauer nachgesehn.
OnExit müßte eigentlich OnBeforeExit heißen, denn u diesem Zeitpunkt liegt der Eingabefokus immernoch beim Control.
Control.SetFocus prüft, ob es nicht schon den Focus besitzt und macht dann nichts, womit im OnExit das SetFocus nie etwas macht, wenn man dieses auf das Control vom OnExit bezieht.
Delphi-Quellcode:
procedure TForm10.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then begin
Edit1.OnExit := nil; // Focused würde sonst eine Endlosschleife erstellen, da es wiederum OnExit aufruft
Focused := nil;
Edit1.OnExit := Edit1Exit;
Edit1.SetFocus; // der Focus ist nun wo anders (nirgends, bzw. bei der Form selber), also funktioniert es nun
Abort; // restliche FMX-Codes, zum Verlassen des Controls, abbrechen
end;
end;
Aber um nochmal auf das angesprochene "OnBeforeExit" zu kommen.....
Delphi-Quellcode:
procedure TForm10.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then
Abort;
end;
So geht es auch, allerdings mit einem kleinen Fehler, denn laut FMX ist der Focus beim Control und auch bei eingabe eines Textes liegt der Fokus wirklich noch dort, aber Edit1.IsFocused sagt False, da es kurz vorm OnExit auf False gesetzt wurde, womit das Edit selber was anderes über sich denkt.
Aber man kann dem Edit schnell wieder ordentlich Bescheid geben.
Delphi-Quellcode:
procedure TForm10.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '' then begin
(Edit1 as IControl).DoEnter;
Abort;
end;
end;
[add]
Letzteres hab ich dort
http://www.delphipraxis.net/169747-b...ml#post1178667 mit integriert, inklusive einer Fehlermeldung. (siehe unten links in der Demo)