Form - Colocando dentro de outro componente

Top  Previous  Next

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form2        := Tform2.Create(Application);

  Form2.Parent := Button1;

  Form2.Show;

end;