对于动态生成的控件如何对该控件的事件函数赋值??

[lwglucky]

对于动态生成的控件如何对该控件的事件函数赋值????

[ccrun.com]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure MyButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MyButtonClick(Sender: TObject);
begin
ShowMessage('动态生成按钮的点击事件');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
btn: TButton;
begin
btn := TButton.Create(Form1);
btn.Caption := '动态按钮';
btn.Parent := Form1;
btn.Left := 10;
btn.Top := 10;
btn.OnClick := MyButtonClick;
btn.Show;
end;

end.

[lwglucky]

问题是：
btn.OnClick := MyButtonClick; {MyButtonClick---是全局函数的时候会报错}

[dapei_712]

不知道你的Delphi示什么版本的？
我的示5.0的，上面的一段代码，稍微修改后可以实现的：
uses
Windows, Messages, SysUtils{, Variants}, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;