Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.151 Beiträge
 
Delphi 12 Athens
 
#4

AW: showmodal Mit Delphi XE5

  Alt 16. Jun 2014, 11:57
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)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (16. Jun 2014 um 12:06 Uhr)
  Mit Zitat antworten Zitat