Wie ProgressBar ansteuern bei EmbeddedWebBrowser?

[ptown67]

hi bitsetter!

danke für deinen tipp. leider kann ich turbo delphi explorer nicht nutzen, da ich ja (wie oben beschrieben) mit einem windows98-computer programmiere, bei dem nicht mehr geht als delphi7. die anderen version brauchen mindestens windows 2000 so viel ich weiss...

aber trotzdem danke für den link mit dem twebbrowser für d7!

inzwischen konnte ich auch die progressbar für den EmbeddedWebBrowser richtig in betrieb nehmen. das ganze funktioniert genauso wie beim normalen twebbrowser.

sollte jemand mal ein ähnliches problem haben, hier der code, der das ganze möglich machte:

Delphi-Quellcode:

procedure TFrameBrowser.BrowserProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
If (Progress>=1) and (ProgressMax>1)
    then
       begin
         ProgressBar1.Visible  := True;
         ProgressBar1.Position := Round((Progress * 100) Div ProgressMax);
        end
   else
      begin
          ProgressBar1.Position := 1;
          ProgressBar1.Visible  := False;
      end;
end;

viele grüße