Como criar um link em um label? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como criar um link em um label?

 

Nas versões mais recentes do Delphi já existe o componente TLinkLabel, que
pode ser utilizado para links. Porém em versões mais antigas, como o
Delphi 7, por exemplo, não há este componente.

Nesta dica será visto como montar um Link na internet em um Label comum.

Este efeito cria a aparência de um link da web.
No evento OnMouseMove do label, deixe conforme o exemplo abaixo:

1
2
3
4
5
6
7
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Font.Style := [fsUnderline];
  Cursor := crHandPoint;
end;

Este efeito faz o label voltar ao normal.
No evento OnMouseLeave do label, deixe conforme o exemplo abaixo:

1
2
3
4
5
6
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clBlack;
  TLabel(Sender).Font.Style := [];
  Cursor := crDefault;
end;

Este código faz abrir o navegador padrão e navegar para o site informado.
No evento OnClick do label, deixe conforme o exemplo abaixo:

1
2
3
4
5
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', TLabel(Sender).Caption,
    nil, nil, 0);
end;

O Código é compatível com qualquer versão do Delphi.

Dúvidas ou sugestões deixe nos comentários do post.

Facebook Comments

Posts Relacionados

  • Administrador
  • 1.561 views
  • 0 comentários
  • 3 de abril de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados