如何把图标文件加到按钮上？

Question

请给详细点的指导，我查了很久，找不到

Answer 1

BitBtn1的Glyph属性就是了，难道不行？！

Answer 2

同意楼上。还有为什么要按钮？speedbutton也可以啊

Answer 3

不行了，要写代码
var
  Icon:TIcon;
  Bmp:TBitmap;
begin
  Icon:=TIcon.Create;
  Icon.LoadFromFile(FileName);
  Bmp:=TBitmap.Create;
  Bmp.Width:=Icon.Width;
  Bmp.Height:=Icon.Height;
  Bmp.Canvas.Draw(0,0,Icon);
  Icon.Free;
  BitBtn1.Glyph:=Bmp;
  Bmp.Free;
end;

Answer 4

取Exe文件的图标用ExtractIcon函数来取！

Answer 5

var
 mIcon:TIcon;
 mHandle:Integer;
 path:string;
 Bmp:TBitmap;
begin
 path:=ExtractFileDir(Application.ExeName)+'nizijian.ico';
 mHandle:=ExtractIcon(Application.Handle,pchar(Application.exename),0);
 mIcon:=Ticon.create;
 Bmp:=TBitmap.Create;
 mIcon.Handle:=mHandle;
 Bmp.Width:=Icon.Width;
 Bmp.Height:=Icon.Height;
 Bmp.Canvas.Draw(0,0,mIcon);
 Icon.Free;
 BitBtn1.Glyph:=Bmp;
end;