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

donghaiw 2004-06-15 11:01:39
我想做一个三态的按钮,
也就是说当鼠标移在按钮上,鼠标点下,鼠标离开时,
按钮分别显示不同的图像。

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

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

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

...全文
332 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
kejian 2004-06-18
  • 打赏
  • 举报
回复
用消息处理也不错
数字蛋糕 2004-06-18
  • 打赏
  • 举报
回复
呵呵,直接拦截CM_MOUSEENTER和CM_MOUSELEAVE就行了。

具体说来:

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

之后的事情就切换一下Image就完了。
qingenerp 2004-06-17
  • 打赏
  • 举报
回复
响应OnMouseMove(), OnMouseDown(), OnMouseExit()就可以了
jijl2001 2004-06-16
  • 打赏
  • 举报
回复
ezrgnbtn
http://delphi.icm.edu.pl
goodloop 2004-06-16
  • 打赏
  • 举报
回复
我也试了自己写,在Timage的onMouseMove,onMouseDown事件中,
可是当鼠标在Timage上点下不放,移开,在别的地方松开时,
就乱了。
------------------------------------------------------------
这个应该好控制的..我原来写过一次扫雷..没什么问题

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

txmjs 2004-06-16
  • 打赏
  • 举报
回复
suipack这个里面的IMAGEBUTTON也可以实现上述功能。
pandengzhe 2004-06-16
  • 打赏
  • 举报
回复
OnMouseExit(),那里有这个事件?

自己到可以做一个
scyongkang 2004-06-15
  • 打赏
  • 举报
回复
谢谢楼主这个帖子,让我学了一点!
OnMouseMove(), OnMouseDown(), OnMouseExit()这几个事件我每次都不知道怎样才用到!
DaSaint 2004-06-15
  • 打赏
  • 举报
回复
Delphi自带的TBitButton和TSpeedButton都可以

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

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧