MDI ? Please !!!
Como criar no MDIForm um menu que da pra colocar em Cascata, Lado a lado... e quando 2 ou mais MDIChild estão abertos aparessa também?
Grato!
Grato!
Anormal
Curtidas 0
Respostas
Anonymous
20/03/2003
o form principal deve ser MDIForm no botão/menu que vai abrir o form coloque isso:
*********
procedure TFrmPrin.ClientesClick(Sender: TObject);
begin
if FrmCliente = Nil Then
begin
FrmCliente:=TFrmCliente.Create(Self);
end
else
begin
FrmCliente.WindowState := wsNormal;
FrmCliente.BringToFront;
FrmCliente.Focused;
end;
end;
***********
o form que vc vai abrir de ser MDIChild, no evento onClose do form coloque:
******
Action:=caFree;
******
PS. esqueça de retirar os forms da criação automatica
PS. Quanto a cascata e lado a lado fico devendo :roll:
*********
procedure TFrmPrin.ClientesClick(Sender: TObject);
begin
if FrmCliente = Nil Then
begin
FrmCliente:=TFrmCliente.Create(Self);
end
else
begin
FrmCliente.WindowState := wsNormal;
FrmCliente.BringToFront;
FrmCliente.Focused;
end;
end;
***********
o form que vc vai abrir de ser MDIChild, no evento onClose do form coloque:
******
Action:=caFree;
******
PS. esqueça de retirar os forms da criação automatica
PS. Quanto a cascata e lado a lado fico devendo :roll:
GOSTEI 0
Andre Leal
20/03/2003
if Form2 = Nil Then
begin
Application.CreateForm(TForm2, Form2);
end
else
begin
Form2.WindowState := wsNormal;
Form2.BringToFront;
Form2.Focused;
end;
Tile;
Veja se é isto que vc q?
begin
Application.CreateForm(TForm2, Form2);
end
else
begin
Form2.WindowState := wsNormal;
Form2.BringToFront;
Form2.Focused;
end;
Tile;
Veja se é isto que vc q?
GOSTEI 0
Fred
20/03/2003
no menu do form principal coloque isto
cascade;{organiza as janelas filhas em cascata}
ou
tilemode := tbhorizontal;{define o modo de organização lado a lado}
tile; {organiza lado a lado}
ou
tilemode := tbvertical;{define o modo de organização lado a lado}
tile; {organiza lado a lado} 8)
cascade;{organiza as janelas filhas em cascata}
ou
tilemode := tbhorizontal;{define o modo de organização lado a lado}
tile; {organiza lado a lado}
ou
tilemode := tbvertical;{define o modo de organização lado a lado}
tile; {organiza lado a lado} 8)
GOSTEI 0