O LabelLink é um componente disponível no Delphi desde a versão
Delphi 2009, seu uso é muito simples, veja os passos:
1 – Coloque um LabelLink na tela.
2 – Defina o seu caption.
Exemplo:
1 | LinkLabel2.Caption := '<a href="http://www.showdelphi.com.br">Show Delphi</a>'; |
Repare que o que esta dentro de href=”” é a url e o texto
entre as tags será o texto que aparecerá para o usuário.
3 – Coloque no evento OnLinkClick conforme o exemplo abaixo:
1 2 3 4 5 | procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string; LinkType: TSysLinkType); begin ShellExecute(0, nil, PChar(Link), nil, nil, 1); end; |
Após isto é só rodar a aplicação e testar o seu link. Lembre-se que ao
clicar, o Windows irá abrir o navegador padrão com a url informada.
Caso você esteja utilizando uma versão anterior ao Delphi 2009
seja a dica abaixo que mostra como montar este efeito no Delphi 7,
por exemplo.
LinkLabel no Delphi 7
Dúvidas ou sugestões deixe nos comentários do post.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
