急，speedbutton的图象运行中改变不了

Question

SpeedButton1.Glyph:=BitMap1;
SpeedButton1.Refresh;
SpeedButton1.Repaint;不报错，也没有反应，图没有变，请问怎么运行中改变SpeedButton的图形？

Answer 1

我用了一个FileListBox这样直观一些，主要是你要指定一个位图文件的位置
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  self.SpeedButton1.Glyph.LoadFromFile(self.FileListBox1.FileName);
end;

Answer 2

或者你这样:
procedure TForm1.Button1Click(Sender: TObject);
var
 pic:TBitMap;
begin
 pic:=TBitMap.Create;
 pic.LoadFromFile(self.FileListBox1.FileName);
 self.SpeedButton1.Glyph:=pic;
end;
和你的方法是一样的，也可以啊！你再好好试试吧！

Answer 3

self.FileListBox1.FileName是一个路径加文件名的字符串!