Delphi 按钮共享事件处理方法

1.其他按钮调用某个按钮事件，例如：

procedure TForm1.btn1Click(Sender: TObject);
begin
    ShowMessage('btn1事件处理');
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
   btn1Click(Sender);
end;

这样btn4 调用是btn1 处理方法

2.多个按钮绑定一个按钮事件，操作为：

 a.拖一个按钮作为公共按钮，双击产生一个公共按钮事件函数，以备其他按钮选择

 b.界面拖一个新的按钮，按钮事件onclick事假选择那个已经产生按钮事件函数

3.动态绑定事件，原理与方法2 一样，但是方法3 具有动态绑定特点更灵活

procedure TForm1.FormCreate(Sender: TObject);
begin
     btn6.OnClick:=btn3.OnClick;
end;

这样btn6就绑定的是btn3的事件了

4.自定义处理事件，将需要公共处理的按钮事件绑定到该事件上