delphi

Question

在delphi里 ，当鼠标移动到 label上时，字体下会出现下划线，鼠标移开，下划线消失 。

Answer 1

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

Answer 2

谢谢，，delphi中，mainmenu 始终是在窗口的最上面，我想在窗口的最下方设置一排类似mainmenu 的按钮，怎么才能实现？

Answer 3

首先，mainmenu是菜单，不是按钮。
另外，可以底部添加button，anchors设置bottom。