为动态控件添加事件 delphi

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.

你看到的大概是这个：

//第一部分

type

TForm1 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end

//第二部分

var

Form1: TForm1

因为Delphi是面向对象的，所以，第一部分代码定义了一个类，第二部分代码是定义了一个TForm1类的对象Form1。这样，你就可以在代码中使用这个对象Form1及Form1的各种方法和属性了。

第二部分的代码也可以这样理解：

例如：

var

i: Integer

就是定义了一个整型(Integer)的变量i，在以后的代码中你就可以使用了。 Form1: TForm1与此类似。

另外，Delphi是面向对象的Pascal语言，语法比较严谨，必须先定义再使用，这也是你要注意的。特别是以前学过C++、ASP等语言者，在这方面更要注意。

你应该看一些面向对象方面的书籍。

---