金山词霸道效果

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   Bmp:TBitmap;
begin
   Bmp:=TBitmap.Create;
   try
      //用鼠标左键和右键分别点击
      if Button=mbLeft then
         ImageList1.GetBitmap(0,Bmp)
      else
         ImageList1.GetBitmap(1,Bmp);
      SpeedButton1.Glyph:=Bmp;
   finally
      Bmp.Free;
   end;
end;