如何向一个按钮发送一个单击事件？

Question

procedure TForm1.Button3Click(Sender: TObject);
begin
  button1.Click;
end;

Answer 1

好像不能用，因为我要处理的按钮不是这个Form中的，用Form2.Button1.Click；不行。

Answer 2

Form2.Button1.Click可以用，只要在Form1 中Uses Unit2就行

Answer 3

Form2.Button1Click(Form2.button1); 试试

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(button82.handle,WM_LBUTTONDOWN,0,0);
  SendMessage(button82.handle,WM_LBUTTONUP,0,0);
end;

Answer 5

在form2中的public中定义button1.click事件，然后可在其它窗体中引用