请问如何在form2中访问form1中的button1click(nil)?以及怎样定义函数和过程以使工程中所有的forms都能直接调用?

Question

定义函数和过程以使工程中所有的forms都能直接调用:
  把你的过程和函数写在一个单独的pas中，然后在其他单元的uses语句加入该独立单元的名称即可。在form2中访问form1中的button1click(nil)：
form2的uses中加入unit1（form1对应的单元名称）
然后：form1.button1.onclick(nil);即可

Answer 1

把FORM1的button1click(nil)放到PUBLIC下，
在FORM2中调用FORM1。BUTTON1CLICK

Answer 2

我看不行，如果form1没有创建就会出问题。还是应该把它定义在一个单独的单元中为好：procedure DoButtonClick(Sender: TObject);
begin
  ...
end;然后在每个FORM的按钮事件中调用它：
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoButtonClick( Sender );
end;procedure TForm2.Button1Click(Sender: TObject);
begin
  DoButtonClick( Sender );
end;

Answer 3

1.为使工程中所有的forms和单元都能直接调用定义的公用函数和过程，
你可以定义一个公用过程，即新建一个Unit文件，把公用函数和过程写在里面，
使用时，只要引用此单元文件就可以了。
2.在Form2中引用Form1中的Button1Click(Nil);
可以直接在Form2中写Form1.Button1Click(Nil);引用。
但我不提倡使用此方法。应尽可能用公用过程。对以后修改程序有好处。