Como saber se WebBrowser terminou de carregar a página?
21/06/2008
0
Eu queria q quando ele terminasse da carregar a página
Ele exibisse uma mensagem.
Minha dúvida é: Como saber quando a página esta 100¬ carregada?[/b:1f9c9093ec]
Mortify
Posts
21/06/2008
Mazzi
-Vc quer usar o WebBrower (I.E, SAFARI, etc....???)
-Vc quer usar um que vc criou em Delphi?
-QUal DElphi vc esta usando?
vlw?
Abracos++
21/06/2008
Mortify
Devia ter sido mais claro ^^
é o TWebBrowser (componente do delphi)
Estou usando o Delphi 7[/b:dd03bbec93]
21/06/2008
Mazzi
[b:133453c7ca]// Para mostrar um carregano pagina use esse evento//[/b:133453c7ca]
procedure TfrmBrowser.BrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
edEndereco.Text := Browser.LocationURL;
StatusBar1.Panels[0].Text := ´Carregando página´;
Animacao.Animate :=true;
end;
[b:133453c7ca]//Para mostrar que pagina foi carregada por completo use esse outro evento//[/b:133453c7ca]
procedure TfrmBrowser.BrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
edEndereco.Text :=´´;
edEndereco.Text := Browser.LocationURL;
frmNavegador.Caption := ´Navegador Padrão :: Sistemas >´+
Browser.LocationName;
StatusBar1.Panels[0].Text := ´Página Completa´;
Animacao.Animate :=false;
end;
21/06/2008
Mazzi
Abracos++
Clique aqui para fazer login e interagir na Comunidade :)