Android: Seltsames verhalten von TCommonCustomForm.Hide;

[Harry Stahl]

Ich verwende unter Android eine "modale" Form per

Delphi-Quellcode:

Form := TMeineForm.create (NIL);
Form.ShowModal (procedure (AResult: TModalresult)
begin
   if AResult = mrOK then begin
     ....
   end;
   Form.disposeof;
end);

Bei einer so angezeigten Forms ist es dann so, wenn man auf OK oder Abbrechen klickt (mrOK, mrCancel), dass in FMX.Forms versucht wird, die Form wieder unsichtbar zu machen:

Delphi-Quellcode:

procedure TCommonCustomForm.Hide;
begin
  FVisible := False;
  if Active then
    Screen.NextActiveForm(Self);
  if not (csDesigning in ComponentState) then
    FWinService.HideWindow(Self); // hier kracht es, bzw. funktioniert nicht beim ersten aufruf
  DoHide;
  if GetFullScreen then
  begin
    FFullScreen := True;
    SetFullScreen(False);
  end ;
end;

Dabei kracht es dann bei "FWinService.HideWindow(Self);" (Schutzverletzung).

Wenn ich statt (des empfohlenen) "Form.DisposeOf" dann "Form.free" verwende, geht es ohne Schutzverletzung, aber die Form wird erst geschlossen, wenn ich ein weiteres mal auf den Schalter klicke (Schalter haben kein OnTab oder OnClick-Event, alles nur über Modalresult-Werte).

De facto wird auch dann 2 x mal der Code innerhalb der anonymen Prozedur ausgeführt.

Übrigens ist da kein Unterschied bei dem Punkt, dass man 2 mal auf OK oder Abbrechen klicken muss, wenn ich die Form nicht modal, sondern einfach nur per "Show" anzeigen lasse und die notwendigen Arbeiten im OK-Event durchführe.

Auf der anzuzeigenden Form ist auch nichts besonderes, 2 Schalter und eine Listbox, wo man einen Eintrag auswählen kann.

Sehr seltsam das.

Hat evtl. hier schon mal was ähnliches erlebt, bzw. hat eine Idee wie man das beheben könnte.