鼠标指向Lable字体时如何显示下划线并且显示手的形状

Question

如题!!!!

Answer 1

手的形状：Cursor属性为cHandpoint

Answer 2

这样就可以了设置onmousemove事件和leave事件procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Cursor:= crHandPoint;
label1.Font.Style:=[fsUnderline];
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Cursor:= crdefault;
label1.Font.Style:=[];
end;

Answer 3

Label的mousemove事件里写 
如下
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Cursor:=crhandpoint;
  Label1.Font.Style:=[fsunderline];
end;