我自己写个组件，在里面想使用事件怎么办
本帖最后由 xltg123 于 2013-12-24 09:54:19 编辑 大家好，
我自己写个组件，在此组件中需要使用如OnExit功能的事件，即焦点离开组件时需要做一些判断，我怎么办？
我试着写了DoExit，然后在组件的Create中把此函数赋给OnExit事件，功能是行的，但是只要用户使用此组件时用了OnExit事件，则我原写的功能就不起作用了。

请大家提供好的想法，或示例。

我主要是想有此类似功能，但还不想使用OnExit事件，怎么办？

谢谢！！！
[解决办法]

引用:

谢谢sz_haitao的回复。
什么意思？我在组件中加个消息，不必使用OnExit？
我试一下

procedure CMExit(var Message: TCMExit); message CM_EXIT;

看看controls.pas、stdctrls.pas