Fortschrittsanzeige für Seitenaufbau in TWebBrowser?

[mlspider]

Jo, Danke! Ich verbesser mal:

Delphi-Quellcode:

procedure TBrowser.WebBrowser1ProgressChange(Sender: TObject; Progress, 
  ProgressMax: Integer); 
begin 
If (Progress = -1) Or (ProgressMax = 0) Then 
        spSkinStatusPanel5.Caption := '' 
    Else 
    begin 
      spSkinStatusPanel5.Caption := Format('%f',[(Progress * 100 / ProgressMax)]); 
      gauge1.MaxValue := ProgressMax; 
      gauge1.Progress := Progress; 
    end; 
end;

getestet, es läuft.

Ja, Luckie ist halt immer einen Tick schneller!!!