Criando Navegar em Delphi - Parte IV

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta Quick como criar um navegador em delphi

Olá pessoal, continuamos aqui com a implementação dos códigos da aplicação Navegador Web que estamos criando nesta série de artigos. Hoje veremos a codificação dos eventos relacionados ao componente WebBrowser do aplicativo e suas respectivas ligações.

Começaremos com o evento OnDownloadComplete

Selecione o componente webbrowser, clique no object inspector, na guia EVENTS procure o evento acima , dê um duplo clique e insira a seguinte codificação:

procedure TfrmBrowser.NavegadorDownloadComplete(Sender: TObject);

begin

//url na status bar

StatusBar1.Panels[0].Text := Navegador.LocationURL;

end;

 

procedure TfrmBrowser.NavegadorProgressChange(ASender: TObject; Progress,

  ProgressMax: Integer);

begin

//transmitindo informações para a progress bar

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

StatusBar1.Repaint;

end;

 

Volte a lista de eventos e procure por OnProgressChange, duplo clique e  insira o escopo abaixo:

procedure TfrmBrowser.NavegadorProgressChange(ASender: TObject; Progress,

  ProgressMax: Integer);

begin

//transmitindo informações para a progress bar

ProgressBar1.Max := ProgressMax;

ProgressBar1.Position := Progress;

StatusBar1.Repaint;

end;

 

Volte a lista de eventos e procure por OnTitleChange, duplo clique e  insira o escopo abaixo:

procedure TfrmBrowser.NavegadorTitleChange(ASender: TObject;

  const Text: WideString);

begin

//TITULO DO DOCUMENTO NO CAPTION DO FORM

caption := text;

 

end;

 

Jefferson Araújo

Contato: tecjefferson@hotmail.com

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?