如何判断鼠标是否在该控件？

[ra3]

我想做一个当鼠标停留在一个 Label 控件上时，该文字显示红色鼠标离开时变回原来的颜色，这该怎么做？

[qybao]

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//判断x,y是否在你的label的left和top，width-left和bottom-top范围内或外
end;

end.

[sxy_9761]

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

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color := clBlack;
end;

[fbincrazy]

来迟了

[zswangII]

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
TLabel(Sender).Font.Color := clRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
TLabel(Sender).Font.Color := Font.Color;
end;