控件如何在IDE中响应MouseDown事件
自己做了一个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