button1.click 送分啦

Question

form1中有button1
form2中有button2
如何实现form2中button2 click时调用form1 button1 click?

Answer 1

form2.button2.onclick:=form1.button1.onclick;

Answer 2

form1 button1 click 在form1中用于刷新treeview
form2 button2 click 在form2中用于更新数据，并想使form1.treeview 刷新.此时调用form1 button1 click想刷新treeview ，可能问的较含糊

Answer 3

uses Unit1;//先uses form1procedure TForm2.Button1Click(Sender: TObject);
begin
  form1.Button1.Click;
end;

Answer 4

tform2.button2click(sender:tobject)
begin
   你想做的
   form1.button1.click;
end;

Answer 5

uses Unit1;//先uses form1procedure TForm2.Button1Click(Sender: TObject);
begin
  ...
  更新数据代码
  ...
  form1.Button1.Click;//刷新treeview
end;

Answer 6

to: mbzdh(一天一个进步)
可是treeview 未刷新阿button1 click是ok的啦

Answer 7

form1.button1.click;
不需要参数？

Answer 8

to:things(平) (枕流以洗耳，漱石以磨牙）
我有 uses unit1的