给所有控件增加一个OnMouseEnter,OnMouseOut事件(50分)

K

kane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-08

• #1

我发现Delphi里面好象没有这个很有用的事件,
真是奇怪.如果我想添加进去的话,应该在哪一级
加入

 

T

Town

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-08

• #2

莫非要重写 TWinControl?
我想,如果要使用哪个控件,就改写哪个控件得了,又不麻烦.
关键两句就是
MESSAGE_HANDLER(CM_MOUSEENTER, TMessage, CMMouseEnter)
MESSAGE_HANDLER(CM_MOUSELEAVE, TMessage, CMMouseLeave)
啦.

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-08

• #3

1、继承需要的控件，写一个 CM_MOUSEENTER/CM_MOUSELEAVE消息的处理程序
2、继承祖先类，重新编译（多数要出问题的）

 

K

kane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-09

• #4

to CJ:
那是不是每个单元都要重新编译一遍呢

 

K

kane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-16

• #5

多人接受答案了。