delphi7里的bitbtn按钮如何动态加载图标？

delphi7里的bitbtn按钮如何动态加载图标？
想用bitbtn做个工具栏，当鼠标划过按钮时变成另外一幅图片。
在软件目录里（与exe的文件同在一起）有一个名为1.bmp的图片，想加载这张。

举报该文章

相关建议 2009-09-10

你需要对BitBtn1加入一个OnMouseMove事件, 然后应用如下加载图片.
BitBtn1.Glyph:= Nil;
BitBtn1.Glyph.LoadFromFile('check.bmp');
注意: 对BitBtn原有图像的清除是必须的一步.

温馨提示：内容为网友见解，仅供参考

当前网址：https://aolonic.com/aa/aa3k5waka.html

其他看法

第1个回答 2009-09-10

你可以在button的MouseMove事件中写
BitBtn1.Glyph.LoadFromFile('你的图片路径');

delphi7中 bitbtn与button这两种按钮有什么区别?
bitbtn在按钮上可以加图标，比如确定按钮前边加个对号之类的。

delphi7中什么控件可实现固定的行数与列数
1-Navigator控件： Flat属性设置3D\/2D效果；dragCursors设置拖动是显示的符号，drag mode\/dragkind决定是否可以进行拖动操作； 2-Additional页的BitBtn控件 Kind属性设置按钮图片类型，layOut设置图片在按钮上的布局；Glyph属性自定义图片，图片...

delphi中如何改变button和BitBtn摁钮颜色
Button按钮不能改变颜色,用bitbtn 也可以使用SpeedButton,通过改变按钮上的图片来达到您所要的效果.

怎么把delphi7中EDIT中的值传输给SQL数据库
你这样试试：procedure TForm1.BitBtn4Click(Sender: TObject);vars:string;begin if edit1.Text='' then begin showmessage('客户编号不能为空');edit1.SetFocus;abort;end;if edit2.Text='' then begin showmessage('客户名称不能为空');edit2.SetFocus;abort;end;if edit3....

相似回答

大家正在搜