Focus-Problem bei Firemonkey

[himitsu]

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)