定义函数和过程以使工程中所有的forms都能直接调用:
把你的过程和函数写在一个单独的pas中,然后在其他单元的uses语句加入该独立单元的名称即可。在form2中访问form1中的button1click(nil):
form2的uses中加入unit1(form1对应的单元名称)
然后:form1.button1.onclick(nil);即可
把你的过程和函数写在一个单独的pas中,然后在其他单元的uses语句加入该独立单元的名称即可。在form2中访问form1中的button1click(nil):
form2的uses中加入unit1(form1对应的单元名称)
然后:form1.button1.onclick(nil);即可
在FORM2中调用FORM1。BUTTON1CLICK
begin
...
end;然后在每个FORM的按钮事件中调用它:
procedure TForm1.Button1Click(Sender: TObject);
begin
DoButtonClick( Sender );
end;procedure TForm2.Button1Click(Sender: TObject);
begin
DoButtonClick( Sender );
end;
1.为使工程中所有的forms和单元都能直接调用定义的公用函数和过程,
你可以定义一个公用过程,即新建一个Unit文件,把公用函数和过程写在里面,
使用时,只要引用此单元文件就可以了。
2.在Form2中引用Form1中的Button1Click(Nil);
可以直接在Form2中写Form1.Button1Click(Nil);引用。
但我不提倡使用此方法。应尽可能用公用过程。对以后修改程序有好处。