Buscar por:

Abrir o browser ao clicar num label ou image

Código

1º Adicione ao Form 3 TImage e 1 TLabel.

2º Declare o procedure na seção PUBLIC da unit.  

    procedure JumpTo(const aAdress: String);  

3º Coloque a cláusula ShellAPI na uses no início da unit.  

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;