Buscar

Como fazer um hot link?

Código

//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:


procedure TTOKAboutBox.OpenObject(sObjectPath : PChar);
begin
 ShellExecute(0, Nil, sObjectPath, Nil, Nil, SW_NORMAL);
end; //Adicione "ShellAPI" no uses.

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 2717 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009