Fehler wenn ich MDI Form schliesse !!!

[Gigant02]

Moin Moin oder eher nabend



also ich habe eine MDI form und dieser Form erzeuge ich halt so genannte unterformen

Delphi-Quellcode:

FrmVerwaltung := TFrmVerwaltung.Create(Application);

wenn ich die Form schliessen will mache ich das über

Delphi-Quellcode:

FRMVerwaltung.Destroy;

nun das ist aber das problem
weil genau dann bekomme ich immer die Fehler meldung
Fehler in der Main.exe

hmmm gibt es andere möglichkeiten die Form zuschliessen ???

lg, Gigant

[arbu man]

Schließe das Formular über close und setze in die OnClose des Childes einfach action:=cafree; dann sollte es gehen.

[Gigant02]

nöe geht noch nicht

ich bekomme jetzt aber eine andere fehler meldung
Im Projekt Main.exe ist eine Exception der Klasse EStackOverflow aufgetreten. Meldung: 'Stack-überlaufen'. Prozess wurde angehalten. mit Einzelne Anweisung oder Start fortseten.


nun gut was sacht mir das jetzt ???

************************

achso und ide Fenster Größe kann ich irgendwie auch nicht anpassen kann mir mal eine sagen warum ??

************************

lg, Gigant

[faux]

Hallo!

Also grundsätzlich sollte man Instanzen per Free und nicht per Destroy zerstören lassen.
Vielleichts liegts daran?

Grüße
Faux

[Gigant02]

leider nein

mit .free habe ich auch schon gedacht aber nee nee fehler ist immer noch da

hmm das kann doch nicht sein als wäre das eine so neues sache mit den mdi geschichte

was könnte ich sonst noch so versuchen ???

lg, Gigant

[faux]

Schreib mal mehr Code rein. ;)

[Gigant02]

ich will erstmal die fenster zum laufen bekommen und das andere habe ich doch gepostet

da ist doch der fehler drin oder nicht ???

habe doch eine zip datei angehängt

lg, Gigant

[faux]

Zitat:

Zitat von Gigant02

habe doch eine zip datei angehängt

:oops: Sorry, die hab ich übersehen.

Delphi-Quellcode:

public
    Unit2 : TForm;

Hier würde ich mal TForm2 schreiben. ;)

Und dann würde ich das OnClose-Event von Form2 auf dieses ändern:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

Grüße
Faux

[Gigant02]

hmmm es scheint wohl so als würde es gehen aber ich werde erstmal es ÜBERALL einbauen

und dann schaun wir mal :)

und was mache ich in sachen Fenster Größe ???

danke dir erstmal

lg, Gigant

[faux]

Zitat:

Zitat von Gigant02

und was mache ich in sachen Fenster Größe ???

Wie meinst du? Die Standardgröße?
Die kannst du zum Beispiel bei der Erzeugung festlgegen.
zB

Delphi-Quellcode:

with TForm2.Create(Self) do
begin
  Width := 500;
  Height := 700;
  Left := ...
...
end;

Grüße
Faux