请问如何调用事件

Question

我想在一个事件里调用另一个事件。不想写成过程形式。语法规则是如何的？请举个简单的例子。谢了。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('ok');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1Click(self);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('ok');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Click;//也可以
end;

Answer 3

你先定义一个和你要调用的事件相同的过程。
procedure FONButtonclick(Sender:TObject);
begin
 //
//.....
end;button1.onclick=Fonbuttonclick
事件其实就是属性。
看看delphi地层的代码，对你大有帮助！