Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
22. Jan 2009
Dann wirst du wohl der anderen Klasse irgendwie miteilen müssen, daß die Klasse sich jetzt selbst löscht.
und die andere Klasse die entsprechende Referenz auf nil setzen soll.
Type
TKlasse1 = Class; {forward declaration}
TKlasse2 = Class(TForm)
Klasse1: TKlasse1;
End;
TKlasse1 = Class(TForm)
ElternKlasse: TKlasse2;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
22. Jan 2009
Und es gäbe auch keine Probleme bei mehrfachen Instanzen.
Aber sicher, daß WM_NCDestroy so stimmt?
Bei Inherited würde eventuell auf ein Objekt zugegriffen, welches nicht mehr existiert;
Procedure TKlasse1.WM_NCDestroy(Var Message: TWMNCDestroy);
Begin
Inherited;
Self.Free;
End;