delphi中要如何实现按钮的图片变换效果

[zhuifeng0801]

delphi中要如何实现按钮的图片变换效果
就是鼠标没有放上去是一个图片背景，放上去换成另一个背景？

如果要用皮肤控件，哪种控件好？有没有简单的方法？

[starluck]

皮膚 VclSkin


實現你上面的效果，建議用IMAGELIST與BUTTON關聯。 來調用IMAGELIST管理的圖標。

[lovelymelon]

参考代码

 private
    { Private declarations }
    procedure   CMMOUSEENTER(var   msg:   TMessage);   message   CM_MOUSEENTER;

procedure TForm1.CMMOUSEENTER(var msg: TMessage);
begin
  if   integer(self.BitBtn2)   =   msg.LParam   then
    self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP16\确定16.bmp')
  else
    self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP16\查询16.bmp')
end;

[zhuifeng0801]

[Quote=引用 1 楼 starluck 的回复:]

皮膚 VclSkin


實現你上面的效果，建議用IMAGELIST與BUTTON關聯。 來調用IMAGELIST管理的圖標。
[/Quote]

VclSkin界面太土了。。。
用IMAGELIST与BUTTON怎么实现，能否给个简单示列，初级新手，谢谢了

[zhuifeng0801]

[Quote=引用 2 楼 lovelymelon 的回复:]
参考代码

Delphi(Pascal) code
private
{ Private declarations }
procedure CMMOUSEENTER(var msg: TMessage); message CM_MOUSEENTER;

procedure TForm1.CMMOUSEENTER(var msg: TMessage);
begin
if integer(self.BitBtn2) = msg.LParam then
self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP16\确定16.bmp')
else
self.BitBtn2.Glyph.LoadFromFile('F:\常用图标\BMP…
[/Quote]

我试试
我看过还有一种用Image来实现的，但是不知道怎么实现鼠标移动变换图片。。。