[Delphi] Criando o Efeito Link em uma label

[TH3 CH4OS 5]

 

1 + Label

 

No evento da label ,"OnMouseLeave" , coloque:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora no evento da label ,"OnMouseMove" , coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Por ultimo vai na Propriedade da Label , e procure por "ShowHint" Habilite para True , depois va em Hint e escreva a

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Veja o Resultado.

 

by Th3 CH4oS

 

 

[Vator 10]

"Este efeito serve para quando colocarmos o mouse em cima do label,o texto ficar sublinhado como um link".

[TH3 CH4OS 5]

Sim , ai ele fica aparecendo com estes Links da internet:D