Hallo Blechwolf,
ändere den Code doch vielleicht so ab:
Delphi-Quellcode:
procedure TFrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
i : integer;
begin
for i := MDIChildCount-1 downto 0 do
begin
if TMyForm(self.MDIChildren[i]).SaveState then
self.MDIChildren[i].Close()
else begin
if TMyForm(self.MDIChildren[i]).AbbruchFrage then
close;
break;
end;
end;
if self.MDIChildCount = 0 then
CanClose := true
else
CanClose := false;
end;
Das ist nicht getestet aber ich denke das Problem liegt daran das die Schleife weiterläuft obwohl die Abfrage da ist das oder ein ähnlicher Seiteneffekt.
Mfg.
Frank