Como um Label recebe Underline?

Question

E ai Galera,Sou novo no Forum e na minha primeira mensagem ja mando uma duvida. Quem souber me ajuda ai.Eu to querendo fazer com que quando o mouse estiver em cima de um label, este label passe a esta...

Emerson Nascimento · Answer

utilize os eventos MouseMove e MouseLeave:

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

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

acho que � isso...

Digobh · Answer

Valeu... Funcionou direitin......

F�rum Como um Label recebe Underline? #222424