Fechar todos os MDIChild, como?

Delphi

31/03/2005

Alguem sabe de uma funcao, que caso exista um mdichild ou varios mdichild, a funcao os feche?

desde ja agradeco

[]s


Titanius

Titanius

Curtidas 0

Respostas

Massuda

Massuda

31/03/2005

No seu form principal...
procedure TForm1.CloseAllClick(Sender: TObject);
var
  I: Integer;
begin
  for I := MDIChildCount-1 downto 0 do
    MDIChildren[I].Close;
end;



GOSTEI 0
Titanius

Titanius

31/03/2005

Valeu.. funcionou :D


GOSTEI 0
POSTAR