Fortschrittsanzeige für Seitenaufbau in TWebBrowser?

[gsh]

Ich versteh den problem nicht die gauge hat einen Max wert und einen Positions wert (oder Progress) und dann sagst einfach:

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.Max := ProgressMax;
      gauge1.Position := Progress;
    end;
end;

Ungetestet !!!

Verdamt Luckie war schneller
//edit: schon mal was von strtoint oder inttostr gehört?