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; |
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; |
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; |
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.
-
InfusTec
-
8.801 views
- 0 comentários
- 3 de abril de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo