Artigos Delphi Quick Tips : Componente LinkLabel no Delphi

Olá galera, nesta Quick Tips, irei mostrar como usar o componente LinkLabel, criado na versão do Delphi 2009 e permaneceu na versão Delphi 2010.

Este componente tem a finalidade de funcionar como um Link dentro de sua aplicação, antes tínhamos que ter um TLabel, e fazer uma codificação para chamar um link direto pela nossa aplicação, foi então que a Embarcadero/Code Gear, desenvolveram o LinkLabel, assim podemos facilmente colocar um link em nossa aplicação sem problemas.

Vamos adicionar em uma nova aplicação. Salve a mesma , e adicione no formulário criado 3 LinkLabel, encontrados na palheta Additional.

Mude o Caption dos mesmos como mostra a imagem abaixo.

Precisamos agora dar uses em ShellAPI.

Implementamos agora o evento onCreate do Form, para adicionarmos as Tags HTML.


procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
{Implementamos um link em HTML, bem simples por sinal, onde direcionamos 3 links o 
DevMedia, Google, Embarcadero
}
LinkLabel1.Caption := '<a href="">DevMedia</a>';

LinkLabel2.Caption := '<a href="http://www.google.com.br">Google</a>';

LinkLabel3.Caption := '<a href="http://www.embarcadero.com">Embarcadero</a>';
end;

Implementamos agora o evento LinkClick de somente um LinkLabel, os demais só vamos apontar através da palheta Events, sendo assim todos os LinkLabels, vão ter o mesmo evento LinkClick.


procedure TFrmPrincipal.LinkLabel1LinkClick(Sender: TObject; const Link: string;
LinkType: TSysLinkType);
begin
{Com o Comando ShellExecute, podemos executar a abertura do Brownser padrão no seu
sistema operacional, e nele já abrir o link clicado}
ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;

Ao executar sua aplicação, observe que os LinkLabels agora estão parecendo links de sites , basta clicar em um deles, e verá que seu navegador padrão será aberto, com o link passado no evento onCreate.

Não precisamos mais ter que implementar eventos em Labels comuns para chamar a página principal de sua empresa, ou um determinado link para buscar CEP dos correios, etc, basta usar este componente e podemos ter este resultado

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y