Código
Então vou ensinar como fazer um link, você pode coloca-la em um label, button,image...e em outros componentes.
eu utilizo ela com um label.
bom vamoa lá..
insira no form um label.ou um button(fica por sua conta).
// dentro da PUBLIC isira este codigo.
procedure JumpTo(const aAdress: String);
//Agora abaixo do ultimo(END;) coloque..
procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := 'http://' + aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;
//e finalmente no botçao ou no label....coloque..
JumpTo('www.geocities.com/SiliconValley/Way/1497');
//detalhe onde esta"www.geocities.com/SiliconValley/Way/1497" você coloca a url que quiser, mais não coloque o http:// s enão vai dar erro coloque a partir do www..
..
Não deixe de visitar nosso site.
'www.satellasoft.com'
showmessage('até a proxima pessoal..');
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009