Como utilizar o componente LinkLabel do Delphi?
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>'; |
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; |
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.
-
Giovani Da Cruz
-
5.467 views
- 0 comentários
- 19 de setembro de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo