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.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
