一个小问题，有空来看看。

Question

很简单的，看看帮助嘛。
或者明天我告诉你。

Answer 1

1、我没这样做过，技术上不难，但我没有时间为你写例程。参考方案1、写 SpeedButton 的 CM_MOUSEENTER 与 CM_MOUSELEAVE 消息处理，动态设置 Glyph 属性；方案2、在 OnMouseMove 事件中处理，动态设置 Glyph 属性；方案3、写 TSpeedButton 的子类，覆盖 Paint 方法。2、一个例子，在 Button1 上左键点击时弹出菜单
procedure TForm1.Button1Click(Sender: TObject);
var
  P: TPoint;
begin
  GetCursorPos(P);
  PopupMenu1.Popup(P.x, P.y);
end;