prüfen ob MDIChild Fenster exestiert?

[marabu]

Die MainForm schließt die MDIChildren selbsttätig und gibt sie auch frei, aber wenn du der Automatik zuvor kommen willst, dann so:

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  while MDIChildCount > 0 do
  begin
    MDIChildren[0].Close;
    Application.ProcessMessages;
  end;
  CanClose := MDIChildCount = 0;
end;

Und herzlich willkommen in der Delphi-PRAXiS.

Freundliche Grüße

marabu