首先在这里发帖所以请原谅任何礼仪失误。
我在Delphi XE8中创建了一个多设备(FMX)应用程序,并且很难为动态创建的按钮分配事件处理程序。我搜索了StackOverflow并找到了与NotifyEvents相关的答案,所以我按照这些答案中的建议 - 仍然没有运气。编译错误是" E2010不兼容的类型:' TNotifyEvent'和'程序'"。
我已经将一个带有编辑字段和静态Hello按钮的表单的简单测试用例放在一起,第二个按钮创建了一个Goodbye按钮,并尝试为OnClick事件分配一个过程,但是我是仍然得到同样的错误。
据我所知,我已经遵循了使程序与TNotifyEvent兼容的所有要求,但即使这个基本示例也会因同样的错误而失败。我把头撞在墙上,所以有人可以让我知道我做错了吗?
非常感谢。
unit Dynamic_Button_Test1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Edit;
type
TForm1 = class(TForm)
Edit1: TEdit;
Hello: TButton;
Create_GoodBye: TButton;
procedure HelloClick(Sender: TObject);
procedure Create_GoodByeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure GoodbyeClick(Sender: TObject) ;
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Create_GoodByeClick(Sender: TObject);
var
New_Button : TButton ;
begin
New_Button := TButton.Create( Form1 );
New_Button.Parent := Form1 ;
New_Button.Text := 'Goodbye' ;
New_Button.Visible := True ;
New_Button.Margins.Left := 50 ;
New_Button.Margins.Right := 50 ;
New_Button.Margins.Bottom := 30 ;
New_Button.Height := 50 ;
New_Button.Align := TAlignLayout.Bottom ;
New_Button.OnClick := TForm1.GoodbyeClick ;
end;
procedure TForm1.HelloClick(Sender: TObject);
begin
Edit1.Text := 'Hello' ;
end;
procedure TForm1.GoodbyeClick(Sender: TObject);
begin
Edit1.Text := 'Goodbye' ;
end;
end.
答案 0 :(得分:6)
VCL / FMX事件处理程序在运行时绑定到特定对象。分配事件处理程序时,需要使用对象指针替换类typename。当事件稍后触发时,该对象将成为事件处理程序的Self
指针:
New_Button.OnClick := Self.GoodbyeClick ;
或者简单地说:
New_Button.OnClick := GoodbyeClick ; // Self implicitly used
旁注 - 创建Button时,该代码位于TForm1
实例方法内,因此您应该使用Self
对象指针而不是全局Form1
对象指针:
New_Button := TButton.Create( Self );
New_Button.Parent := Self ;