SpeedButton 能不能点上去换图片啊？（在线等待）

Question

哪为来帮帮忙，我想让SpeedButton的图片换一下，就是写在MouseDown事件里的。

Answer 1

if  SpeedButton1.Down then
  SpeedButton1.Glyph.LoadFromFile('YourBMPFile.bmp')
else
  ...不过比较浪费资源。

Answer 2

procedure TF_test.SpeedButton1Mousedown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  speedbutton1.Glyph.LoadFromFile('f:\图片\2.bmp');
end;

Answer 3

谢谢二位，我还想问一下，speedbutton为什么没有leave事件啊？那我的鼠标移开的时候不是就变不回去了吗？？

Answer 4

你在mouseup中再还原回原来地图片就可以了。

Answer 5

speedbutton没有MouseLeave和MouseEnter事件，但它是从GraphicsControl中继承来的，可重新继承创建有这两个事件的按钮。

Answer 6

你是要想鼠标移开的时候变回原来的图片吗？？
这样可以呀
你可以在窗体的Mousemove事件中再添加代码
speedbutton1.Glyph.LoadFromFile(‘你的原来图片.bmp');