Url como declarar a função exata???
Olá Mentes Especiais!!! :roll:
Bem o que eu quero fazer é abrir automaticamente o meu navegador ao clicar em uma label com uma url
:arrow: O problema esta com o comando JumpTo, a mensagem de erro diz que não foi declarado...
Agradeço desde já se alguém soubre dessa parada. :wink:
Valeu!!!
Bem o que eu quero fazer é abrir automaticamente o meu navegador ao clicar em uma label com uma url
:arrow: O problema esta com o comando JumpTo, a mensagem de erro diz que não foi declarado...
Agradeço desde já se alguém soubre dessa parada. :wink:
Valeu!!!
Jfalexandre
Curtidas 0
Respostas
Carnette
10/02/2003
Me envie o código que voce digitou
GOSTEI 0
Dor_poa
10/02/2003
Adicione na USES ShellAPI;
procedure AbreSite(Const Endereco:String);
procedure TCOMPONENTE.AbreSite(Const Endereco:String);
var Buffer: String;
begin
Buffer := ´http://´ + endereco;
ShellExecute(application.Handle, Nil, Pchar(Buffer), Nil, Nil, SW_SHOWNORMAL);
end;
para abrir faz assim:
AbreSite(´www.azanonatec.com.br´);
procedure AbreSite(Const Endereco:String);
procedure TCOMPONENTE.AbreSite(Const Endereco:String);
var Buffer: String;
begin
Buffer := ´http://´ + endereco;
ShellExecute(application.Handle, Nil, Pchar(Buffer), Nil, Nil, SW_SHOWNORMAL);
end;
para abrir faz assim:
AbreSite(´www.azanonatec.com.br´);
GOSTEI 0
Anonymous
10/02/2003
Resumo, uso com delphi 6
Uses UrlMon, ShellAPI
procedure TAboutBox.Label1Click(Sender: TObject);
begin
HlinkNavigateString(nil,´http://www.seusite.com.br´);
end;
Uses UrlMon, ShellAPI
procedure TAboutBox.Label1Click(Sender: TObject);
begin
HlinkNavigateString(nil,´http://www.seusite.com.br´);
end;
GOSTEI 0