Dicas - Como fazer um Hot Link

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica de Delphi Win32, como fazer um hot link em seus projetos.

Como fazer um Hot Link

 

Adicione um componente com o URL. Digite o seguinte código no seu evento OnClick:

 

procedure Tform1.URLLabelClick(Sender: TObject);

var

  TempString : array[0..79] of char;

begin

  StrPCopy(TempString,URLLabel.Caption);

  OpenObject(TempString);

end;

 

Insira a seguinte procedure logo após implementation:

 

{ Adicione "ShellAPI" no uses }

procedure TTOKAboutBox.OpenObject(sObjectPath : PChar);

begin

 ShellExecute(0, nil, sObjectPath, nil, nil, SW_NORMAL);

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?