Focus-Problem bei Firemonkey

[himitsu]

Timer, TThread.Queue oder eine Message sollte doch eigentlich klappen, da das so ist, als würde der Benutzer es (etwas später) selber machen :gruebel:
(Timer = überdimensionierte Message)

Wenn da intern nicht ebenfalls was zeitverzögert ausgelöst wird, dann könnte es schon passieren, daß dieses nach unserem Timer/Querue/Message erst zuschlägt.

[jaenicke]

Intern wird das einfach direkt zugewiesen, da passiert nichts hinterher. (Von den Animationen vielleicht mal abgesehen, keine Ahnung, aber die entscheidende Zuweisung ist da schon durch.)

[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. :angle2:

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)

[eddie11]

wow, das gefällt mir gut!

ich werde sehen, wie ich das in mein Projekt einbauen kann.

@himitsu: vielen Dank

alledings wird auch hier ein Memoryleak erzeugt.

Darüber hinaus habe ich natürlich ein weiteres Problem: ein Abbruch-Button. Ich muss die Überprüfung abschalten können, damit der benutzer das Formular verlassen kann, ohne irgendeine Eingab zu machen. Ich glaube es wird wirklich das beste sein, die Validierung der Eingabe nicht im OnExit des Controls zu machen, sondern tatsächlich im OnEnter des nächsten Controls. Da ich grundsätzlich eigene Komponenten benutze (i.d.R. von der Originalcomponente abgeleitet) habe ich damit kein Problem. Beim OnEnter in ein Control merke ich mir das Control, beim OnEnter in das nächste Control führe ich die Validierung des ersten Controls aus. Wenn Ok, dann wenn weiter, wenn nicht, dann Focus setzen. Mal sehen wie weit ich damit komme.