W
wangxd
Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个组件，要求当这个组件放到一个form上后，可以对form上的其他控件的消息进行截取或映射。
一般消息映射这样实现：procedure aaa(var msg:message);message wm_xxxxxx;
但这样是对aaa过程所在的组件本身进行消息映射。怎样写aaa过程能够实现对其他组件实现消息映射？
其实我就是想做一个这样的组件，当这个组件放到form上后，就可以对form上所有的edit，memo，button等组件(或我指定的组件)的CM_MOUSEENTER，CM_MOUSELEAVE消息进行截取映射，给他们加上鼠标移入移出事件。
我不想从edit,memo,button组件挨个派生新的组件来对CM_MOUSEENTER,CM_MOUSELEAVE进行截取，如果这样我原来的程序就都要重写了。
估计要用到hook，不知道有没有别的什么办法？
一般消息映射这样实现：procedure aaa(var msg:message);message wm_xxxxxx;
但这样是对aaa过程所在的组件本身进行消息映射。怎样写aaa过程能够实现对其他组件实现消息映射？
其实我就是想做一个这样的组件，当这个组件放到form上后，就可以对form上所有的edit，memo，button等组件(或我指定的组件)的CM_MOUSEENTER，CM_MOUSELEAVE消息进行截取映射，给他们加上鼠标移入移出事件。
我不想从edit,memo,button组件挨个派生新的组件来对CM_MOUSEENTER,CM_MOUSELEAVE进行截取，如果这样我原来的程序就都要重写了。
估计要用到hook，不知道有没有别的什么办法？