请问如何实现当鼠标移动到按钮上，按钮上的文字自动变颜色

Question

Button是不可以改变颜色的，用Bitbtn组件吧

Answer 1

另外你可以参考这个贴子：
http://www.csdn.net/expert/topic/138/138523.shtm
通过API改变Button的类来实现改变颜色，不过太复杂。

Answer 2

同意TechnoFantasy(www.applevb.com)，可以考虑用TBitBtn控件(就在Additional页上的第一个控件)

Answer 3

从Bitbtn继承，对CM_MOUSEENTER
  CM_MOUSELEAVE   编程

Answer 4

自己做一个组件，从TButton继承，然后重载 OnEnter()函数。

Answer 5

在事件mousemove中编写代码
button1.color:=clred;

Answer 6

  TELButton = class(TButton){TELButton}
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
    { Private declarations }
  protected
    procedure MouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure MouseLeave(var Message: TMessage); message cm_MOUSELEAVE;
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
    { Published declarations }
  end;
其余的自己写吧