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