zugriffsverletzung bei aufruf von destroy

[sancho1980]

hallo

ich habe folgendes problem:

habe eine mdi-anwendung mit mehreren formularen, wobei ein der formulare der owner von allen anderen formularen ist.
jetz wollte ich erreichen, dass wenn irgendeins der formulare geschlossen wird, alle anderen auch geschlossen werden, also hab ich in die procedure zum onclose-ereignis der einzelnen formulare reingeschrieben:

Delphi-Quellcode:

self.Owner.Destroy()

da schließt sich dann zwar alles so wie ich will, aber leider bekomm ich da auch immer gleich so eine hässliche meldung von wegen "zugriffsverletzung"...was mach ich da falsch?

danke,

martin

[Zacherl]

Warscheinlich ist beim ersten Fenster der Owner undefiniert. Einfach mal mit try .. except .. end abzufangen versuchen.

Florian

[Luckie]

Oder einfach mal die Delphi Hilfe lesen:

Zitat:

Do not call Destroy directly. Call Free instead. Free verifies that the object reference is not nil before calling Destroy.

[sancho1980]

ok, hab ich probiert

das ändert leider auch nichts :|

[SirThornberry]

hast du mal haltepunkte gesetzt und/oder durchgestept bei welchen Befehlen im Destroy die AV kommt?

[Zacherl]

Alternativ zum Free aus Lukies Beitrag:

Delphi-Quellcode:

if Self.Owner <> nil then
  Self.Owner.Destroy;

[sancho1980]

Zitat:

Zitat von SirThornberry

hast du mal haltepunkte gesetzt und/oder durchgestept bei welchen Befehlen im Destroy die AV kommt?

mal ne dumme frage: da müsst ich ja die unit aufmachen, wo das destroy drinsteht...wie find ich n die?

[marabu]

Hallo Martin,

normalerweise ist die Application der Owner, aber egal. Am Beispiel des Templates aus dem Objekt Repository geht es so:

Delphi-Quellcode:

procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  with Application do
    if not Terminated then
      Terminate;
end;

Grüße vom marabu

[sancho1980]

Zitat:

Zitat von marabu

normalerweise ist die Application der Owner, aber egal.

Das geht bei mir leider nicht, weil ich meine Anwendung folgendermaßen gestaltet habe: öffnet der user eine datei, dann wird EIN formular erzeugt (sozusagen das hauptformular für diese eine datei die grad geöffnet wird), welches wiederum mehre andere dazugehörige formulare erzeugt (denen es sich selbst als owner übergibt). es können aber trotzdem mehrere dateien geöffnet sein, was dann heißt, dass sich natürlich pro geöffnetem file die anzahl der fenster verdoppelt. wenn jetzt EIN formular vom user geschlossen wird, will ich, dass ALLE diejenigen formulare zerstört werden, die auch mit der gleichen dateiöffnung zusammenhängen; deswegen hab ich das über den owner gemacht...


grüße,

martin

[marabu]

Ohne MDI-Formulare geht es so:

Delphi-Quellcode:

procedure TParentForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Release;
end;

procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  with Owner as TForm do
    PostMessage(Handle, WM_CLOSE, 0, 0);
end;

marabu