如何在事件中引用别的事件？

Question

我是Delphi的初学者，就是在一个事件中如何引用别的事件呢？？
谢谢！

Answer 1

假设你的Form上有Button1, Button2；Button1的OnClick如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(TButton(sender).Caption +' Clicked');
end;在Button2的OnClick的下拉框中选Button1Click，那么就执行同样的过程。也可以在Button2的OnClick中手工加入：
procedure TForm1.Button2Click(Sender: TObject);
begin
 Button1Click(button2);
end;效果是一样的。