Como fechar todos os formulários filhos de um formulário do tipo MDIForm?
Neste exemplo, o evento está escrito dentro do próprio Form MDIForm.
1
2
3
4
5
6
7
8
| { É uma procedimento bem simples, porém bem útil .}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := Self.MDIChildCount - 1 downto 0 do
Self.MDIChildren[I].Close;
end; |
{ É uma procedimento bem simples, porém bem útil .}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := Self.MDIChildCount - 1 downto 0 do
Self.MDIChildren[I].Close;
end;
Post Views: 2.866
-
InfusTec
-
- 0 comentários
- 26 de março de 2015
