Link para um site

[fabianocg 0]

povo!!sou novo aqui. Gostaria de saber se alguem pode me ajudarestou querendo programar um botão para quando eu clicar nele, ele me abra uma já nela de internet com a página definida nele.É possível?como se faz?abraços!!!

[skywards 1]

Olapeguei estas dicas em um programa de dicas, testa elas ai

060 - Como fazer um "Hot Link"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.218 - Link para WEBUm procedure para você clicar no (label, menu, botão...) a automaticamente abrir seu navegador padrão e carregar a página determinada pelo link.1º Declare o procedure na seção PUBLIC da unit.procedure JumpTo(const aAdress: String);2º Coloque a cláusula ShellAPI na uses no início da unit.procedure TForm1.JumpTo(const aAdress: String);varbuffer: String;beginbuffer := 'http://' + aAdress;ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);end;procedure TForm1.Label1Click(Sender: TObject);beginJumpTo('www.lloydsoft.hpg.ig.com.br');end;

espero q ajude.

[fabianocg 0]

Grande Sky!!!a parte de Link para a Web funcionou direitinho.mas a 060 - Como fazer um "Hot Link" não entendi nada.pra que serve?Abraços!!!e valeu pela dicaFabiano

[skywards 1]

Olaserve para cirar um link tb, entretanto nunca usei e como havia comentado antes pequei estas dicas em um programa de dicas de delphi, ou seja, nunca as testei.

[fabianocg 0]

achei ela complicada de maisnão consegui intender nada.Já a de baixo, funcionou direitinho.Obrigado!!Fabiano

[EderDias 0]

amigo...aqui vai uma dica mais simples...veja abaixo:

 

Para Inserir link Site

 

procedure TForm1.Button1Click(Sender: TObject);beginshellexecute(handle, 'open', Pchar(edit1.text), NiL, NiL, SW_SHOWNORMAL);       //acessar link através de um editend;

Se em vez de usar o text do Edit1, você quiser usar uma url fixa, por exemplo www.matrix.com.br, então fica:

 

shellexecute(handle, 'open', 'www.matrix.com.br', NiL, NiL, SW_SHOWNORMAL);//acessar link programado direto

Todas acima tem usar o:

 

shellapi no Uses

Espero ter ajudado...colega....inté http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[fabianocg 0]

ajudou sim Eder. Valeu!