如何覆盖事件？(20分)

D

doglive

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #1

写了一个类：
type Mybutton = class(Tbutton)
end;
想覆盖单击事件的过程，该怎么样做？

 

V

versa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #2

var
MyBtn:Mybutton;

MyBtn:=Mybutton.Create(nil);
MyBtn.OnClick=MyFun;

 

D

doglive

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-16

• #3

我是想在类里面直接写覆盖函数