如何实现像 windows mediaplay 9 或是 realone 那样的图片按钮?而且是3态的?
帮助完美解答的一定重重酬谢!
帮助完美解答的一定重重酬谢!
解决方案 »
- delphi如何遍历数据表?用delphi语句如何写
- ADOQUERY SQL 赋值问题
- 如何让DBGridEh的自动适应宽度
- 不是超级高手解决不了:ADO连接EXCEL奇怪问题
- 用delphi+apache编程,怎么提交<input type="file" name="attachfile" size="20" value class="p1">
- 关于三层系统的一些思想跟大家交流。
- sql问题
- 数据库查询的问题?
- 问一初级问题?
- 又一个SQL SERVER 中ID号自动增加问题?
- 找InstallShield for delphi 5.0,各位请帮忙
- Tue Feb 18 11:00:00 2003 如何转换为日期
(推销书籍的家伙,嘻嘻)
http://www.51delphi.com
http://www.codestudy.net
2:自己用做图工具做,如:
IconCool Editor
3:同意: warton(没有中文名) 的方法。
有问题请发信息到我的E-mail:[email protected]
先做三张图片.bmp:
down.bmp--绿色
move.bmp--红色
normal.bmp--兰色procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('E:\图标按钮\down.bmp');
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
判断当前鼠标是否在image中
if (X>5) and (X<Image1.Width-5) and (Y>5) and (Y<Image1.Height-5) then
Image1.Picture.LoadFromFile('E:\图标按钮\move.bmp')
else
Image1.Picture.LoadFromFile('E:\图标按钮\normal.bmp')
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('E:\图标按钮\move.bmp');
end;不过这样做有点小BUG,就是当鼠标快速在Image上移动过的时候会有点小问题!
也就是在判断鼠标是否在Image中的方法需要改进,不知道哪位大侠能够有好的方法告知?
Email:[email protected]
这个要怎么设置呢,我在BUTTON的属性里没有找到image和hotimage属性啊,谢谢!