求动态创建按钮的几行代码！！！即刻有分

Question

听题：
    我有form1,  form2
   现在我想在from2上，写代码动态创建form1上的按钮。如何做阿？？？
    以前的代码：
       button1：array[1..20] of Tbutton
       button1[1].creat(self);
      button1[1].parent:=self;
    不过怎么能创建不在一个窗体上的控件阿？？？ 可能要修改上面的代码，怎么改呢？？？？？

Answer 1

写一个CREATE 函数，
其中加上：
 parent:=from2;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
   button1:array[1..20] of Tbutton;
begin
      form2.Show;
      button1[1]:=Tbutton.create(application);
      button1[1].parent:=form2;
end;
试试看！

Answer 3

var button1:TButton;
begin
  button1:=form1.Button1.Create(self);
  button1.Parent:=form2;
  button1.left:=10;
  button1.Top:=10;
  button1.Show ;
end;

Answer 4

button1[1]:=tbutton.Create (form2);
button1[1].parent:=form2;
button1[1].Left :=50;
button1[1].Top :=50;
button1[1].Caption :='222222222'   ;
form2.Show ;

Answer 5

.Parent := Form2;其余代碼與在本窗口中一致。

Answer 6

button1[1]:=tbutton.Create (form2);
button1[1].parent:=form2;
其他代码与平常的一样即可