什么控件可以实现三态按钮？

[donghaiw]

我想做一个三态的按钮，
也就是说当鼠标移在按钮上，鼠标点下，鼠标离开时,
按钮分别显示不同的图像。

我用了一个很不错的控件叫Timgbtn可以实现三态，
可是当同一个窗体中有包含Ttimeer控件时，
Ttimeer控件的事件就被暂停激活，直到鼠标离开按钮时。

我也试了自己写，在Timage的onMouseMove,onMouseDown事件中，
可是当鼠标在Timage上点下不放，移开，在别的地方松开时，
就乱了。

请教各位还有什么更好的控件可以实现三态按钮？

[DaSaint]

Delphi自带的TBitButton和TSpeedButton都可以

分别响应OnMouseMove(), OnMouseDown(), OnMouseExit()就可以了

[scyongkang]

谢谢楼主这个帖子，让我学了一点！
OnMouseMove(), OnMouseDown(), OnMouseExit()这几个事件我每次都不知道怎样才用到！

[pandengzhe]

OnMouseExit()，那里有这个事件？

自己到可以做一个

[txmjs]

suipack这个里面的IMAGEBUTTON也可以实现上述功能。

[goodloop]

我也试了自己写，在Timage的onMouseMove,onMouseDown事件中，
可是当鼠标在Timage上点下不放，移开，在别的地方松开时，
就乱了。
------------------------------------------------------------
这个应该好控制的..我原来写过一次扫雷..没什么问题

关键是再mousemove和mouseup处理好就可以了

[jijl2001]

ezrgnbtn
http://delphi.icm.edu.pl

[qingenerp]

响应OnMouseMove(), OnMouseDown(), OnMouseExit()就可以了

[数字蛋糕]

呵呵，直接拦截CM_MOUSEENTER和CM_MOUSELEAVE就行了。

具体说来：

...
private
procedure CMMouseEnter(var Msg : TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg : TMessage); message CM_MOUSELEAVE;
...

之后的事情就切换一下Image就完了。

[kejian]

用消息处理也不错