In Delphi, when the mouse moves to the label, the font will appear under the underline, mouse, underline disappear,

CodePudding user response:

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

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

CodePudding user response:

Thank you,, Delphi, the mainmenu is always in the top of the window, I think at the bottom of the window set a line similar to the mainmenu button, how to achieve?

CodePudding user response:

refer to the second floor u010828581 response:

thank you,, Delphi, the mainmenu is always in the top of the window, I think at the bottom of the window set a line similar to the mainmenu button, how can we achieve?

First of all, the mainmenu is the menu, not button,
In addition, you can add a button at the bottom of the anchors set bottom,