showmodal Mit Delphi XE5

[youuu]

Hi, ich habe ein größeres problem mit Showmodal.

Ich erstelle eine Form, rufe Sie mit Showmodal auf.
Wenn ich Sie schließe hab ich manchmal den Bug, das dass Fenster zu ist, allerdings das programm sich noch sperrt, weil es anscheinend noch nicht mitbekommen hat, das dass Form zu ist.

Im OnClose event hab ich

Zitat:

Action := caFree;

stehen, kann das zu diesem problem führen?

Und mit

Zitat:

self.Release

, schließe ich das Form

[mkinzler]

Ja, caFree gibt die Instnaz nach dem Schließen automatisch frei.

[DeddyH]

Das klingt zumindest ungewöhnlich. Wird es besser, wenn Du das Formular so aufrufst?

Delphi-Quellcode:

var
  MyForm: TMyForm;
begin
  MyForm := TMyForm.Create(nil);
  try
    case MyForm.ShowModal of
      mrOK:
        DoSomething;
      mrCancel:
        DoSomethingDifferent;
    end;
  finally
    MyForm.Free;
  end;
end;

[himitsu]

Du hast eine modale Form und gibst sie mit Release frei, warum?
Das kommt auf's Selbe raus, wie ein Free. Es zerstört die Form und demnach muß es in der ShowModal-Warteschleife knallen, weil deren Instanzzeiger dann natürlich ins Nirwana zeigt.

ShowModal wartet auf Close, bzw. auf das Zuweisen des ModalResult und freigeben lässt du es ja bereits mit csFree.

Fazit: Du bist Schuld.
Beispiel: Erschieß dich mal selber und versuch "danach" deinem Bos zu sagen, was du grade gemacht hast "Bin fert'sch, kannst weitermachen".



Ach ja, da man bei ShowModal im Allgemeinen das Result haben will, ist es eh blöd, wenn man die Form schon vorher freigibt, wimit der Weg von DeddyH eigentlich der idealste ist.
Aber auch das caFree kann OK sein. (aber auch hier nur über Close und ModalResult schließen)

Delphi-Quellcode:

var
  MyForm: TMyForm;
begin
  MyForm := TMyForm.Create(Application);
  case MyForm.ShowModal of
    mrOK:
      DoSomething;
    mrCancel:
      DoSomethingDifferent;
    end;
end;

Man muß hier nur aufpassen, daß "irgendwann" nach dem ShowModal die Form sich selber freigibt. (sobald die VCL das nächste Mal die Messages verarbeitet)

[youuu]

Ja hab es selbst gemerkt :wall: