Title: [Code] DockForm
Post by: Hacker Xtreme on 24 de November , 2006, 08:45:20 PM
Post by: Hacker Xtreme on 24 de November , 2006, 08:45:20 PM
E ae pessoal, depois que eu fiquei plantado atrás disto na internet achei um código e modifiquei.. DockForm é mostrar um outro form dentro de um panel tipo eu tenho um form central que tem um panel e dois buttons, um button mostra o form2 e o outro o 3, mais é chato exibir milhares de janelinhas, dai eu quero exibir em um panel dai eu coloco um códigozinho e ele exibe, é mais ou menos isso deu pra entender 
!
No código abaixo exibe o form2
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create( Self );
Form2.FormStyle := fsNormal;
Form2.DockSite := True;
Form2.Align := alClient;
Form2.Dock( Panel1 , Rect( 0, 0, 0, 0 ) );
Form2.Show;
end;
No código abaixo exibe o form3
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3 := TForm3.Create( Self );
Form3.FormStyle := fsNormal;
Form3.DockSite := True;
Form3.Align := alClient;
Form3.Dock( Panel1 , Rect( 0, 0, 0, 0 ) );
Form3.Show;
end;
...by Xtreme
! No código abaixo exibe o form2
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2 := TForm2.Create( Self );
Form2.FormStyle := fsNormal;
Form2.DockSite := True;
Form2.Align := alClient;
Form2.Dock( Panel1 , Rect( 0, 0, 0, 0 ) );
Form2.Show;
end;
No código abaixo exibe o form3
procedure TForm1.Button2Click(Sender: TObject);
begin
Form3 := TForm3.Create( Self );
Form3.FormStyle := fsNormal;
Form3.DockSite := True;
Form3.Align := alClient;
Form3.Dock( Panel1 , Rect( 0, 0, 0, 0 ) );
Form3.Show;
end;
...by Xtreme
Title: Re: [Code] DockForm
Post by: RC on 24 de November , 2006, 08:57:58 PM
Post by: RC on 24 de November , 2006, 08:57:58 PM
Parabéns pelo code extreme!
Usei ele aki e funcionou.
Rox_nxr
Usei ele aki e funcionou.
Rox_nxr
Title: Re: [Code] DockForm
Post by: anakim on 24 de November , 2006, 10:48:22 PM
Post by: anakim on 24 de November , 2006, 10:48:22 PM
aew xtreme to gostando d vez progredindo, tem nego q mexe no delphi ha tmps e nao se interessou a respeito disso parabens kra, t+!!!
Title: Re: [Code] DockForm
Post by: Hacker Xtreme on 25 de November , 2006, 11:19:42 PM
Post by: Hacker Xtreme on 25 de November , 2006, 11:19:42 PM
vlw mano's é um elogio vindo de vcs 
faço o possível pra ta aprendendo cada vez mais...
faço o possível pra ta aprendendo cada vez mais...