Question

delphi怎样写鼠标滑过label上方时变形的语句

就是进入该组件上方，鼠标变手型；离开，手型消失恢复原形状。
那如果在label之下加上一条下划线的方式来显示同样的效果呢？

Answer 1

看你的意思是想做网站链接
手型：把label的Cursor属性设成crHandPoint就行了

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;

Answer 2

label不是有个Cursor属性吗？下拉它选中那个手形的标志就行了。或者用语句：
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Cursor:=crHandPoint;
end;