Abrindo o browser ao clicar num label ou image

{Abrindo o browser ao clicar num Label ou Image


Nessa dica veremos como iniciar o seu browser apenas clicando em um Label ou em uma Image.

Adicione ao Form 3 TImage e 1 TLabel. Altere a propriedade Caption do Label1 para: Envie suas dicas. Altere tambem a propriedade Picture do Image1, Image2 e Image3, busque as imagens Clubelogo.bmp, Javalogo.bmp e SQLlogo.bmp que podem ser encontradas dentro do Zip que contem o aplicativo (ver download no fim da página).

Declare a procedure JumpTo na área de declarações pública (veja abaixo) e copie seu código na área de implementação.}

public
{ Public declarations }
procedure JumpTo(const aAdress: String);

//Declare a biblioteca ShellAPI na cláusula uses do Form. Veja a procedure JumpTo logo abaixo

procedure TForm1.JumpTo(const aAdress: String);
var
buffer: String;
begin
buffer := aAdress;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

//Adicione o código abaixo no evento OnClick do Label1 - aqui será aberto o Outlook para o envio de e-mails

procedure TForm1.Label1Click(Sender: TObject);
begin
JumpTo('mailto: uploader@clubedelphi.com.br');
end;

//Adicione o código abaixo no evento OnClick do Image1 - aqui o navegador irá para a página do ClubeDelphi

procedure TForm1.Image1Click(Sender: TObject);
begin
JumpTo('http://www.clubedelphi.com.br');
end;

//Adicione o código abaixo no evento OnClick do Image2 - aqui o navegador irá para a página da JavaMagazine
procedure TForm1.Image2Click(Sender: TObject);
begin
JumpTo('http://www.javamagazine.com.br');
end;

//Adicione o código abaixo no evento OnClick do Image3 - aqui o navegador irá para a página da SQLMagazine

procedure TForm1.Image3Click(Sender: TObject);
begin
JumpTo('http://www.sqlmagazine.com.br');
end;