Progressbar avec TWebBrowser

JackTheRipp3r Messages postés 50 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 5 février 2004 - 6 oct. 2003 à 17:17
JackTheRipp3r Messages postés 50 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 5 février 2004 - 6 oct. 2003 à 21:06
Salut à tous !!!
J'aimerais savoir comment faire pour mettre une progressbar liée au composant TWebBrowser pour indiquer où en est le chargement de la page web... (J'ai cherché une propriété qui pourrait correspondre en vain...)
Merci !
;) A vouloir péter plus haut que son cul, on fionit par avoir des trous dans le dos ! ;)

2 réponses

cs_sofiane2 Messages postés 23 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 1 mai 2013
6 oct. 2003 à 19:46
+-------------------------------+
+ 8-) prog_sofiane >:) +
+-------------------------------+

tu dois mettre un statusbar et un progressbar
et voila le code a mettre :

procedure TForm1.WebProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
  begin
     Progressbar1.Visible := true;
  progressbar1.Parent:=statusbar1;
progressbar1.top:=1;
progressbar1.left:=1;
progressbar1.Max:=progressMax;
progressbar1.Position:=progress;
  end;


et pour le texte du chargement:

   Statusbar1.Panels[1].Text := text;


n'oublier pas de diviser le statusbar en 2 panels
0
JackTheRipp3r Messages postés 50 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 5 février 2004
6 oct. 2003 à 21:06
Yea la classe ca marche parfaitement !!! Merci Beaucoup!!
;) Ne dors pas trop la nuit pour pouvoir faire une sieste le jour ! ;)
0
Rejoignez-nous