prüfen ob MDIChild Fenster exestiert?

[thetrue]

moin,

wie kann man abfragen, ob überhaupt ein MDIChild offen ist?

[marabu]

Hallo,

was meinst du mit offen? Existierende (MDIChildCount) MDIChild-Fenster findest du unter MDIChildren.

Grüße vom marabu

[thetrue]

Delphi-Quellcode:

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i:Integer;
begin
i:=main.MDIChildCount;
while i>0 do
  begin
    i := i-1;
    main.MDIChildren[i].Close; {da kommt ne Yes/No abfrage ob schließen}
  end;
if main.MDIChildCount > 0 then {liefert mehr als 0 auch wenn kein Child vorhanden }
  Action := caFree
else
  Action := caNone;
end;

nja das klappt irrgend wie nicht

[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

[thetrue]

Application.ProcessMessages;

was macht das?

[marabu]

Damit werden ausstehende Nachrichten abgearbeitet. Du weißt, dass Windows fast alles über Nachrichten erledigt? Setze die Zeile mal auf Kommentar und schau was passiert.

marabu

[TBx]

Hallo!

Deine MDIChildren werden offensichtlich beim Closen nicht gefreet, somit bleiben Sie Children Deines Mainforms.
Das Close eines MDIChilds entspricht einem Minimize.

Ich gehe mal davon aus, daß die Frage, ob das Form geschlossen werden soll oder nicht aus dem FormClose der einzelnen MDIChilds kommt. Dort müßte dann die CloseAction im Erfolgsfall auf caFree gesetzt werden.

Gruß

onlinekater

[Edit]CloseQuery auf FormClose berichtigt [/Edit]

[Zacherl]

Sprich: Application.ProcessMessages verhindert, dass die Anwendung einfriert.