原创 在Lazarus中将函数赋值给控件的事件

在Delphi中，我们可以将一个函数赋值给一个控件的事件，比如：

procedure TForm1.btnClick(Sender: TObject);
begin
  Caption:='1';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := btnClick;
end;

但是，在Lazarus中，我们如果用同样的方法，在编译时就会出现一个错误提示：

Error: Wrong number of parameters specified for call to "btnClick"

造成这个现象的原因是FPC编译器和Delphi的编译器之间的差异。解决的方法也很简单，使用"@"这个操作符，即在Lazarus中，需要使用下面的表达方法：

Button1.OnClick := @btnClick;