如何调用函数

Question

No.1
Button1.Click;No.2
Button2.OnClick := Button1.OnClick;No.3
Button1Click(Button1);

Answer 1

No.4 建议使用
TActionList

Answer 2

附加
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(TButton(Sender).Caption); //可以通过Sender知道是啥按钮
end;

Answer 3

先完成按钮a的点击事件代码，然后转到Object Inspector的事件页，
从按钮b的点击事件下拉框中选择刚才按钮a的点击事件