鼠标离开时，按钮恢复颜色？？？

[kxn]

我有多个按钮，当我鼠标移到某个按钮时，按钮变色；鼠标离开时，按钮恢复颜色
请问这如何实现？？？

[jacobran]

这个没有办法,不过你可以加一个XPMAN的控件,在XP中就会有你说的那种效果了.

[chen6191]

模仿下面的：

在Form中声明两个函数：
procedure CMMouseEnter(var msg:tmessage);message CM_MOUSEENTER;
procedure CMMouseLeave(var msg:tmessage);message CM_MOUSELEAVE;
实现部分如下：
procedure TForm1.cmmouseenter(var msg:tmessage);
begin
if msg.LParam=integer(button1) then
showmessage('fsdkfs');
end;

[xxfree]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label2.Color:=clgreen;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Color:=clgreen;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Color:=clBtnFace;
label2.Color:=clBtnFace;
end;

end.
最简单的吧？仅供参考！

[kxn]

可是我的按钮是工具栏上的按钮他的高度与工具栏的高度差不多
这样我鼠标移动如果快一点他就不会改变颜色了