Como fechar os formularios do sistema
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
Curtidas 0
Respostas
Wbb
29/11/2004
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
GOSTEI 0