[Code] DockForm

[Hacker Xtreme]

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

[RC]

Parabéns pelo code extreme!

Usei ele aki e funcionou.





Rox_nxr

[anakim]

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+!!!

[Hacker Xtreme]

vlw mano's é um elogio vindo de vcs faço o possível pra ta aprendendo cada vez mais...