高人指点 delphi 中 怎样给一个的新建button 加上图标?（求详解）

Question

delphi 中　怎样给一个的新建button　加上图标?（求详解）

Answer 1

button 不是有三种吗?
常用的button,speedbutton,bitbutton
用bitbutton 就可以在属性里.好象是这样.
如果添加一个imagelist就更方便了
以上我还没实践,书里这么写的.

Answer 2

如果是用普通的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 即可设置图标。

Answer 3

谢谢回答的各位朋友，尤其是lynmison 和　zhyqieqie ，谢谢你们详细的回答。真想每人都给你们５分，可只有这么多了。只好散给各位了，不好意思。