Fehler beim Form.Close

[pickel]

Hi,

ich habe eine MDIForm und ein MDIChild, welches ich zur Laufzeit so erstelle:

Code:

Application.CreateForm(TForm1, Form1);

Da ich aber kein MainMenu habe und somit das einzelne Child nicht schliessen kann wenn es maximiert ist, habe ich mir ein Image genommen, welches

Code:

Form1.Close;

onClick beinhaltet.

Es funktioniert auch wunderbar.
Wenn ich jedoch die Form 2 mal hintereinander öffne, und dann die forms schliessen will, schmiert er mir bei der 2. Form ab.
Dieses Problem tritt NICHT auf, wenn ich das X von dem SystemMenu verwende (wenns halt nicht maximiert ist).

Da aber alle Child maximiert sein sollen und ich kein MainMenu haben möchte, geht es für mich nur mit einem Button/Image.

Wie also muss ich die Form über das Image schliessen, dass er nicht beim 2. mal sich aufhängt?

Fehlermeldung: "Zugriffsverletzung bei Adresse 00000000. Lesen von Adresse 00000000."

Beim OnClose steht bei mir ausserdem noch

Code:

Action:=caFree;

damit die Form auch wirklich geschlossen wird.


Danke...

Greetz Nils

[Steve]

Hi,

wird Form1 öfters erzeugt? Oder bekommt jedes Form einen eigenen Namen?
Evtl. hilft beim Schließen statt form1.Close ja MainForm.ActiveMDIChild.Close

Gruß
Stephan

[bundy]

Hy

probier mal das Childform so zu erstellen:

Delphi-Quellcode:

form:=Tform.Create(self);
form.Show;

in den Projekt Options enferne das Form (Autocreate Forms).

[LoL]

musst du nicht noch das form freigeben oder irr ich mich?

[Steve]

Zitat von LoL:

musst du nicht noch das form freigeben oder irr ich mich?

Hi,

wenn im OnClose Action:=caFree gesetzt wird, wird's ('automatisch') freigegeben.

Gruß
Stephan

[pickel]

Zitat von Steve:

wird Form1 öfters erzeugt? Oder bekommt jedes Form einen eigenen Namen?
Evtl. hilft beim Schließen statt form1.Close ja MainForm.ActiveMDIChild.Close

Ja Form wird öfters erzeugt.
Nein es gibt keinen eigenen Namen.

ActiveMDIChild.Close hat den Fehler behoben, danke.

Zitat von bundy:

probier mal das Childform so zu erstellen:

Delphi-Quellcode:

form:=Tform.Create(self);
form.Show;

das führt leider gleich zu ner Zugriffsverletzung.