Fórum Como fechar os formularios do sistema #260400
29/11/2004
0
Eu possuo um aplicativo MDI .... como faço para, em uma opção do menu, fechar todos os formularios abertos, menos, é claro, o form do menu ?
Arc
Curtir tópico
+ 0
Responder
Posts
29/11/2004
Wbb
Colque um botão com o código abaixo:
procedure TfrmPrincipal.Button1Click(Sender: TObject);
Var i: Integer;
begin
for i := 0 to MDIChildCount - 1 do
MDIChildren[i].Close;
end;
t+
wbb
procedure TfrmPrincipal.Button1Click(Sender: TObject);
Var i: Integer;
begin
for i := 0 to MDIChildCount - 1 do
MDIChildren[i].Close;
end;
t+
wbb
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)