Aktives MDIchild schließen

[ggfan]

Hallo,
ich habe auf einem MDI-Child einen Button. Wenn auf diesen geklickt wird, sollen bestimmte Befehle ausgeführt werden und dann das Child geschloßen werden. Ich hab zu dem Thema hier nichts finden können.(Juhuu ich bin der erste mit dem Problem). Könnt ihr mir da weiterhelfen?

[Die Muhkuh]

Hi,

ActiveMDIChild.Close Im OnClose der Form:

Delphi-Quellcode:

  DoSomething;
  Action := caFree;

[ggfan]

bei ActiveMDIChild.Close; kommt dann eine Zugriffsverletzung als Fehlermeldung.

[JasonDX]

Es könnte sein, dass gerade kein MDI-Child aktiv ist (weil keins offen ist ect.)

vielleicht kann man das Problem so umgehen:

Delphi-Quellcode:

if ActiveMDIChild <> nil
  ActiveMDIChild.close;

Ansonsten könnte es vielleicht mit Source zusammenhängen, der im OnClose ausgeführt wird. Post diesen mal, falls du da was drinnen hast

[ggfan]

Delphi-Quellcode:

procedure TfrmNewAppointment.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  useredit := false;
  groupcal.Visible := false;
  Action := caFree;
end;

Ein MDIchild ist auf jedenFall offen, weil, ja auf diesem der Button zum schließen sein soll.

[Die Muhkuh]

Hi,

dann brauchst du in dem Schließen Button nur "Close;" zu schreiben.

Ich dachte du hast einen Button auf deiner MainForm der ein MDI-Child schließen soll

[shmia]

Zitat von ggfan:

ich habe auf einem MDI-Child einen Button. Wenn auf diesen geklickt wird, sollen bestimmte Befehle ausgeführt werden und dann das Child geschloßen werden.

Delphi-Quellcode:

procedure TMDIForm.Button1Click(Sender:TObject);
begin
   // deine "bestimmte Befehle"
   ....
   self.Release;  // = verzögertes Close+Free
end;

[ggfan]

Das funktioniert perfekt, danke.