procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); //当鼠标移动到标签Label1上时改变鼠标形状
begin
Label1.Font.Color:=clBlue; //设置Label1的字体颜色为蓝色
Label1.Font.Style:=[fsUnderline]; //设置Label1的字体带下划线
Label1.Cursor:=crHandpoint; //设置Label1鼠标形状为手型
end;
procedure TForm1.Label1MouseLeave(Sender: TObject); //当鼠标离开标签Label1时恢复鼠标形状
begin
Label1.Font.Color:=clWindowText; //恢复Label1的字体颜色
Label1.Font.Style:=[]; //恢复Label1的字体(去掉下划线)
Label1.Cursor:=crDefault; //恢复Label1鼠标形状为默认
end;