自己做了一个pagecontrol控件，点击page页可以切换，运行时没有问题，但在设计时控件放到窗体后好像不响应mouse事件，导致设计期不能切换page页，有知道的朋友还请不吝赐教，谢谢。
CM_DESIGNHITTEST 参数：TCMDesignHitTest 传回值：0或1
在设计时期当鼠标移到组件上头时，整合环境会送给此组件这个讯息。此讯息的目的用来决定组件在设计时期是否要处理鼠标讯息。如果传回值是 1，整合环境就让组件自行处理鼠标讯息；若传回值是 0，则整合环境会帮你处理鼠标讯息。如果传回值永远是 1，那么组件的快速功能选单则永远不会出现；如果组件不处理这个讯息或永远传回 0，那此组件在设计时期将无法对鼠标讯息做任何反应。
非常感谢可以实现，下面是我的代码，供大家参考
procedure TCPageControl.CMDesignHitTest(var Message: TCMDesignHitTest);
var
vIndex: Integer;
begin
vIndex := GetPageAtTitle(Message.Pos.X, Message.Pos.Y);
if (vIndex >= 0) and (vIndex <> FActiveIndex) then
Message.Result := 1;
end;
http://bbs.2ccc.com/topic.asp?topicid=517064