Progressbar Fortschritt bei Laden einer Internetseite

[Bencher]

Hallo

Ich möchte gerne wissen, wie man ein Fortschritt einer Progressbar realisiert, beim Laden einer Internetseite.
Danke schon mal im Voraus.

[Sharky]

Hai Bencher,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXIS".

Schaue Dir doch mal das Ereigniss OnProgressChange des TWebBrowsers an. Das sollte Dir helfen.

[Matze]

:hi:

Oder suche hier mal nach Download Fortschritt

Edit: Oder schau in die Code-Libryry ;)

[Bencher]

Danke erst mal
Hab das jetzt so realisiert

Delphi-Quellcode:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
var i: Integer;
  begin
  Progressbar1.Max := ProgressMax;
  Progressbar1.Position := Progress;
end;

Ist das so richtig

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Sharky]

Zitat:

Zitat von Bencher

...Ist das so richtig...

Ich würde sagen: "Ja".