Fórum Url como declarar a função exata??? #134146
10/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
10/02/2003
Carnette
Me envie o código que voce digitou
Responder
Gostei + 0
10/02/2003
Dor_poa
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´);
Responder
Gostei + 0
18/03/2003
Anonymous
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)