Criando Navegar em Delphi - Parte IV

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