我正在尝试在 lazarus 中实现 MVC 模式,我已经创建了模型和 View (直接来自设计师)。现在,我正在编写“ Controller ”,但是当我尝试重新分配自动生成的方法“Button.OnClick”时,出现编译错误:
controller.pas(31,44) Error: Wrong number of parameters specified for call to "QuitBtn"
Controller 的构造函数:
constructor TController.Create(AModel : TGame ; AView : TFArena);
begin
Model := AModel;
FView := AView;
{Compilation Error}
FView.Quit.OnClick := TController.QuitBtn;
end;
和程序:
procedure TController.QuitBtn(Sender : TObject);
begin
ShowMessage('MVC READY');
end;
从 lazarus 自动生成的方法
procedure TFArena.QuitClick(Sender: TObject);
begin
{Nothing because she's gonna be over assigned}
end;
因此,两者都使用相同的参数“Sender:TObject”
谢谢阅读
最佳答案
OnClick 事件必须实现为一个实例的方法。您已经传递了方法的代码部分,但缺少数据,即实例。
你必须得到一个 TController 的实例。现在,由于您的代码在 TController 的构造函数中运行,因此您手头有了其中之一。所以就这样写:
FView.Quit.OnClick := Self.QuitBtn;
当然,你总是可以省略惯用的 Self。
FView.Quit.OnClick := QuitBtn;
我也不确定 QuitBtn 是否是事件处理程序的好名字。这听起来更像是 UI 小部件的名称。
也许您正在使用需要 @ 运算符来生成方法引用的编译器模式:
FView.Quit.OnClick := @QuitBtn;
关于model-view-controller - MVC Lazarus 参数数量错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18902774/