为什么我的的自己做的控件不能获得焦点啊？ ( 积分: 50 )

我用的是继承TCustomcontrol父类，但是无论我在如何定义消息,
如：
procedure WMSetFocus (var Message: TWMSetFocus); message WM_SETFOCUS;
procedure wmkillfocus(var msg:twmkillfocus);message wm_killfocus;
还有CM_enter,CM_exit都不能触发该消息！这是为什么！！！
一部分代码在此！这是为什么！高手指教啊

楼主看看能获得焦点的类的基类是什么，是TWinControl类和从这个类继承下来的类，所以你就知道为什么TSpeedButton为什么不能获得焦点了

SendMessage(Handle, EM_SETSEL, 0, -1);