就是当鼠标放在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.
你试试,是不是你要求的。