如何实现啊？----

Question

小弟看到有些软件有这么一个东东：
    假如在窗口上有“使用”两个字，当指针移到这两个字上时，字的颜色会改变，当指针移走后，颜色恢复原来的颜色。谢谢。

Answer 1

示例代码如下：
放一个label控件到form中，在label的OnMouseMove和form的OnMouseMove事件中书写代码：
//label的MouseMove事件
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=clred;
end;//Form的MouseMove事件
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Font.Color:=clwindowtext;
end;

Answer 2

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