Link?
Esta deve ser muito fácil... Eu quero saber como eu coloco um link direto para um site na internet, dentro de um programa desenvolvido em Delphi. A pessoa clica na imagem, endereço ou uma palavra e isto abre o endereço que eu quero, tipow, http://www.globo.com/programadojo.
Valew
Valew
Lipe
Curtidas 0
Respostas
Anonymous
15/02/2003
1º Declare o procedure na seção PUBLIC da unit.
[color=indigo:06cd79f654]procedure JumpTo(const aAdress: String);[/color:06cd79f654]
2º Coloque a cláusula [color=darkblue:06cd79f654]ShellAPI[/color:06cd79f654] na uses no início da unit.
[b:06cd79f654]procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo(´http://www.globo.com/programadojo. ´);
end;[/b:06cd79f654]
falow cara
Fernando Souza
Votorantim/SP
[color=indigo:06cd79f654]procedure JumpTo(const aAdress: String);[/color:06cd79f654]
2º Coloque a cláusula [color=darkblue:06cd79f654]ShellAPI[/color:06cd79f654] na uses no início da unit.
[b:06cd79f654]procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := ´http://´ + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo(´http://www.globo.com/programadojo. ´);
end;[/b:06cd79f654]
falow cara
Fernando Souza
Votorantim/SP
GOSTEI 0