怎样动态改变speedbutton按钮上的图标？

Question

想实现这样的效果：
speedbutton没有按下时其按钮图标是a.bmp  。当保持按下时（speedbutton1.down:=true;)其按钮图标是b.bmp。
其NumGlyphs属性好象可以实现这个效果，试验了半天还是不行。
   

Answer 1

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  with TSpeedButton(Sender).Glyph do
  begin
    FreeImage;
    LoadFromFile('E:\Common Files\Borland Shared\Images\Icons\earth16.bmp');
  end;
end;procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with TSpeedButton(Sender).Glyph do
  begin
    FreeImage;
    LoadFromFile('E:\Common Files\Borland Shared\Images\Icons\chem16.bmp');
  end;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

用 NumGlyphs 可以实现 4 种状态的切换，弹起、无效、点击、按下。
你只要把 4 种状态的图拼接成一个图片文件就行了。