delphi label鼠标滑过事件

想做网站链接手型：把label的Cursor属性设成crHandPoint就行了 需要uses Graphics;才能取到这个颜色常量

procedure TForm1.Label7MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin 
 //鼠标移动到LABEL1控件上
  Label7.Font.Style:=[fsunderline];
 //下划线 
 Label7.Font.Color:=clmaroon;//颜色
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin//鼠标离开LABEL1控件 
 Label1.Font.Style:=[fsunderline]; 
 Label1.Font.Color:=clNavy;
end;

引用： http://zhidao.baidu.com/question/77969962.html