Question

delphi7 鼠标移动到label上字体出现下滑线

Answer 1

写下面两个事件就可以了：
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Style:=[fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Style:=[];
end;

追问

你好，我在做delphi和数据库的程序，有的地方不懂，可不可以加Q呢？

Answer 2

在label1的onmousemove事件定义当鼠标进入时设置字体型号为下划线
当onmouselevel时设置字体为正常

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Style:=[];
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Font.Style:=[fsUnderline];
end;

追问

字体变粗，是什么命令？谢谢了