link para web
Gostaria de colocar no meu About box um link para a minha página.
Gostaria que o usuario ao clicar no texto www.xxx.com.br abrisse o navegador já na página.
Gostaria que o usuario ao clicar no texto www.xxx.com.br abrisse o navegador já na página.
Danielle Ballester
Curtidas 0
Respostas
Cebikyn
14/01/2004
uses ShellAPI
ShellExecute(handle,´open´,´http://www.xxx.com.br´,nil,nil,SW_NORMAL);
ShellExecute(handle,´open´,´http://www.xxx.com.br´,nil,nil,SW_NORMAL);
GOSTEI 0
Otto
14/01/2004
faça o seguinte, põe um label comum no form, muda a cor dele pra azul(normal) e no evento OnClick do label, vc faz o seguinte:
[b:7c055b2adb]var[/b:7c055b2adb]
Pagina : String;
[b:7c055b2adb]begin[/b:7c055b2adb]
Pagina := ´www.otto3d.com´;
ShellExecute(GetDesktopWindow,´open´,pchar(Pagina),nil,nil,sw_ShowNormal);
[b:7c055b2adb]end;[/b:7c055b2adb]
// nao esqueca de declarar ShellAPI em uses..
um abraco....
[b:7c055b2adb]var[/b:7c055b2adb]
Pagina : String;
[b:7c055b2adb]begin[/b:7c055b2adb]
Pagina := ´www.otto3d.com´;
ShellExecute(GetDesktopWindow,´open´,pchar(Pagina),nil,nil,sw_ShowNormal);
[b:7c055b2adb]end;[/b:7c055b2adb]
// nao esqueca de declarar ShellAPI em uses..
um abraco....
GOSTEI 0
Otto
14/01/2004
tipo, pra ficar uma coisa mais realista, no label onde vai ser o link, vc alterar a seguinte propriedade:
clica no label, e na Propriedade
[b:6f1d07f309]Cursor[/b:6f1d07f309]
vc altera pra: [b:6f1d07f309]crHandPoint[/b:6f1d07f309]
clica no label, e na Propriedade
[b:6f1d07f309]Cursor[/b:6f1d07f309]
vc altera pra: [b:6f1d07f309]crHandPoint[/b:6f1d07f309]
GOSTEI 0