Alle MDI-Childs schliessen ?

Janus · Beiträge: 33

Hallo Leute, gibt es eine Funktion, um alle MDI-Childs eines Formulars zu schliessen ?

Vielen Dank schon im Voraus, Gruss Säm

_________________
Don't give in the hate, that leaves to the dark side of the force !!!

UGrohne · Verfasst: Do 27.03.03 17:13

markieren

Quelltext

1:
2:

for i:=0 to MDIChildCount-1 do
     MDIChildern[i].Free;

Net nachgeguckt, aber min. so ähnlich.

Gruß

ErnestoChe · Verfasst: Do 27.03.03 20:34

Hi,

oder so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: Integer;
begin
  with Form1 do
    for I := MDIChildCount-1 downto 0 do
      MDIChildren[I].Close;
end;

MFG

- Ernesto -

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme