Buscar por:

Abrindo o browser ao clicar num label ou image

Código

{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;