鼠标问题！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Question

LABEL设透明只要设字体即可实现.
MOUSEMOVE事件
IF LABEL.FONT.color=CLred tehn
  label.FONT.color:=CLblack
else
  label.color:=CLred;

Answer 1

在Label的OnMouseMove事件里面写上以下代码procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Color :=你想要的颜色
end;

Answer 2

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