高人指点 delphi 中 怎样给一个的新建button 加上图标?(求详解) delphi 中 怎样给一个的新建button 加上图标?(求详解) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 button 不是有三种吗?常用的button,speedbutton,bitbutton用bitbutton 就可以在属性里.好象是这样.如果添加一个imagelist就更方便了以上我还没实践,书里这么写的. 如果是用普通的Button,即TButton组件,需要重载 Paint,然后写上以下代码。procedure TMyButton.Paint();var dc: HDC; bmp: TBitmap;begin bmp := TBitmap.Create; //创建一位图 bmp.LoadFromFile('d:\mouse.bmp'); //载入位图 dc := GetDC(Button1.Handle); //获取button的句柄 BitBlt(dc,0,0,16,16,bmp.Canvas.Handle,0,0,SRCCOPY); //在button上绘图 ReleaseDc(Button1.Handle,dc); bmp.Free;end;除非有其他什么特别用途,否则直接用 TBitBtn或者TSpeedButton,然后直接设置 Glyph 即可设置图标。 谢谢回答的各位朋友,尤其是lynmison 和 zhyqieqie ,谢谢你们详细的回答。真想每人都给你们5分,可只有这么多了。只好散给各位了,不好意思。 寻求高手指点指点 你们谁来看看,我这个sql语句哪里有问题 找到工作了!找了七天!散分先! 如何制作Delphi的安装包 大家都学了几门语言? 请教:一个错误消息的原因及解决方法; 简单问题 怎么檫掉Image上的图象? FastReport一問? WINDOWS右键中WINZIP、ICQ等如何去除,请进来看看 如何把字符串里的双引号替换为单引号 高分 如何隐藏第三方程序,如NOTEPAD.EXE? 有关FORM的显示问题,请高手指点!TKS!
常用的button,speedbutton,bitbutton
用bitbutton 就可以在属性里.好象是这样.
如果添加一个imagelist就更方便了
以上我还没实践,书里这么写的.
procedure TMyButton.Paint();
var
dc: HDC;
bmp: TBitmap;
begin
bmp := TBitmap.Create; //创建一位图
bmp.LoadFromFile('d:\mouse.bmp'); //载入位图
dc := GetDC(Button1.Handle); //获取button的句柄
BitBlt(dc,0,0,16,16,bmp.Canvas.Handle,0,0,SRCCOPY); //在button上绘图
ReleaseDc(Button1.Handle,dc);
bmp.Free;
end;除非有其他什么特别用途,否则直接用 TBitBtn或者TSpeedButton,然后直接设置 Glyph 即可设置图标。