Como um Label recebe Underline?

Delphi

25/03/2004

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 estar com underline. Tipo os links do internet explorer. Eu mudo la no OnMouseUP e coloco label1.font.style mas não sei como continuar o código. Quem souber mata essa pra mim.


RODrigo!!!


Digobh

Digobh

Curtidas 0

Respostas

Emerson Nascimento

Emerson Nascimento

25/03/2004

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...


GOSTEI 0
Digobh

Digobh

25/03/2004

Valeu... Funcionou direitin...


GOSTEI 0
POSTAR