+-------------------------------+
+
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