Fortschrittsanzeige für Seitenaufbau in TWebBrowser?

**mlspider**

Hallo,

Wie im Titel schon benannt, suche ich nach einer Lösung den Ladefortschritt einer Webseite mit Hilfe der Gauge-Kompo zu realisieren.

Bisher habe ich den Fortschritt in Prozent anzeigen lassen:

markieren

Delphi-Quellcode:

			procedure TBrowser.WebBrowser1ProgressChange(Sender: TObject; Progress,

  ProgressMax: Integer);

begin

 If (Progress = -1) Or (ProgressMax = 0) Then

        spSkinStatusPanel5.Caption := ''

    Else

        spSkinStatusPanel5.Caption := Format('%f',[(Progress * 100 / ProgressMax)]);

end;

Nun möchte ich aber alles mit ein Gauge lösen. Hat jemand einen Lösungsansatz?

Danke

Fortschrittsanzeige für Seitenaufbau in TWebBrowser?

Fortschrittsanzeige für Seitenaufbau in TWebBrowser?

Forumregeln