[DELPHI] CRIAR LINK EM UM LABEL

Vamos criar a aparência de um link da web para abrir uma página de internet através de um Label comum.

Este código pode ser usado com qualquer versão do Delphi.

Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, e altere as propriedade do Form:

Caption = Sobre
Name = FrmSobre
Position = poDesktopCenter

Adicione ao formulário um TLabel disponível na paleta Standard do Delphi (Tool Palette -> Standard: TLabel) e altere suas propriedades conforme baixo:

PROPERTIES LABEL1:
Caption  = https://gmdasilva.blogspot.com.br

No evento OnMouseEnter do label, deixe conforme o exemplo abaixo:
// Efeito link
procedure TFrmSobre.CommentsMouseEnter(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Font.Style := [fsUnderline];
  Screen.Cursor := crHandPoint;
end;

No evento OnMouseLeave do label, deixe conforme o exemplo abaixo:
// Voltar ao normal
procedure TFrmSobre.CommentsMouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clBlack;
  TLabel(Sender).Font.Style := [];
  Screen.Cursor := crDefault;
end;

No evento OnClick do label, deixe conforme o exemplo abaixo:
// Abre a página definida no caption do label
procedure TFrmSobre.CommentsClick(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', PChar(TLabel(Sender).Caption), nil, nil, 0);
end;

Salve as alterações (File -> Save All), coloque o nome uSobre para Unit e Sobre para o nome do projeto.

Pronto, execute a aplicação (menu Run -> Run ou Pressione F9) e veja o resultado.

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】