为动态控件添加事件 delphi

//该程序是在动态窗口中添加动态按钮,并指定按钮事件。完整测试代码如下:programProject1;usesWindows,Messages,SysUtils,Var... //该程序是在动态窗口中添加动态按钮,并指定按钮事件。完整测试代码如下:
program Project1;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

var
MyButton1:TButton;
MyForm1:TForm;
{$R *.res}
Procedure MyButtonClick(Sender:TObject);
begin
ShowMessage('自定义事件');
end;

begin
MyForm1:=TForm.Create(Application);
MyForm1.Show;
MyButton1:=TButton.Create(Application);
MyButton1.Parent:=MyForm1;
MyButton1.OnClick:=MyButtonClick;//此处错误提示:
//Incompatible types:'method pointer and regular procedure'
end.
展开
 我来答
紫衣侠隐
推荐于2018-04-09 · TA获得超过264个赞
知道小有建树答主
回答量:164
采纳率:0%
帮助的人:261万
展开全部
MyButtonClick过程需要属于某个对象,才可以;即MyButtonClick需要定义在某个对象内部,且要符合Procedure (Sender:TObject) 规范;然后再赋值给MyButton1.OnClick。
例如:
================================================================
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure Button1Click2(Sender: TObject);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click2(Sender: TObject);
begin
//
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
button1.on .OnClick:= Button1Click2;
end;

end.
追问
就我写的那个测试程序来看,应该怎样调整,因为窗体也是动态生成的。
追答
你可以继承TForm,创建个TForm子类,比如 TBaseForm,然后在TBaseForm中定义一个MyButtonClick,然后:
MyForm1:=TBaseForm.Create(Application);
...
MyButton1.OnClick:=TBaseForm(MyForm1).MyButtonClick;

应该就可以了。
...
6rl
2015-01-29 · TA获得超过704个赞
知道小有建树答主
回答量:580
采纳率:66%
帮助的人:371万
展开全部

 事件方法必须是类实例的方法.

type
   TEventHandlers = class { 建一个虚拟类}
       procedure MyButtonClick(Sender:TObject);
   end;
 
...
var 
  EvHandler:TEventHandlers;
 
implementation
 
{方法实现}
procedure TEventHandlers.MyButtonClick(Sender:TObject); 
begin 
      ShowMessage('自定义事件');
end;
 
 
 
{使用}
MyButton1.OnClick:=EvHandler.MyButtonClick;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
googleyeyou
2011-03-25 · TA获得超过186个赞
知道小有建树答主
回答量:269
采纳率:100%
帮助的人:129万
展开全部
简单测试通过,自己稍微改下

program Project1;

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,

Unit1 in 'Unit1.pas' {Form1};
type lForm = class(TForm)
public
Procedure MyButtonClick(Sender:TObject);
end;
{$R *.res}
var
MyButton1:TButton;
mForm: lForm;

Procedure lForm.MyButtonClick(Sender:TObject);
begin
ShowMessage('自定义事件');
end;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
MyButton1:=TButton.Create(Application);
MyButton1.Parent:=Form1;
mForm:= lForm.CreateNew(nil);
MyButton1.OnClick:= mform.MyButtonClick;//
Application.Run;
end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式