Como restaturar todos os formulários filhos de um formulário do tipo MDIForm?
Neste exemplo, o evento está escrito no próprio formulário MDIForm.
1
2
3
4
5
6
7
8
| { Repare que tem algumas pequenas mudanças em relação a minimizar.}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Self.MDIChildCount - 1 do
Self.MDIChildren[I].WindowState := wsNormal;
end; |
{ Repare que tem algumas pequenas mudanças em relação a minimizar.}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Self.MDIChildCount - 1 do
Self.MDIChildren[I].WindowState := wsNormal;
end;
Post Views: 1.228
-
InfusTec
-
- 0 comentários
- 21 de março de 2015
