就是当鼠标放在LABEL上的时候字变成红色鼠标不在LABEL上的时候字是原来的颜色，我做了当鼠标在LABEL上的时候只能变成红色但是鼠标不在LABEL上的时候它还是红色的！怎么才能鼠标放上去是红色不放上去是系统默认的颜色呢？

var
Form1: TForm1;
Mycolor: Tcolor;
implementation

{$R *.dfm}

procedure TForm1.formMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then
with label1 do
begin
if (X>left) and(X<(left+width))and (Y>top)
and(Y<(top+height)) then
begin
label1.Font.Color:=clred;
end
else
begin
label1.Font.Color:=Mycolor;
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
Mycolor: Tcolor;
begin
Mycolor:= label1.Font.Color;
end;

end.
你试试，是不是你要求的。

上面的procedure TForm1.FormCreate(Sender: TObject);
应该用下面的这个.


procedure TForm1.FormCreate(Sender: TObject);
begin
Mycolor:= label1.Font.Color;
end;

我怎么用不起来啊？

不过还是谢谢好心人

只需加上以下消息及消息函数：
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with label1 do
begin
if ((x > 0) and (x < width)) and ((y > 0) and (y < height)) then
begin
font.Color := clRed;
end;
end;
end;

前面的改一下更简单：
procedure TForm1.formMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Color := myColor;
end;