Delphi IDE (89)
Windows with Delphi (280)
About this site
Links to us
Progress bar with the TWebBrowser component
This article has not been rated yet. After reading, feel free to leave comments and rate it.
How can I make the TWebBrowser component display a progress bar?
The TWebBrowser component cannot display a progress bar on its own. You need to add a TProgressBar component from the Win32 component palette and hook into the TWebBrowser.OnProgressChange event as shown in the code below.
You don't like the formatting? Check out SourceCoder then!
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject;
Progress, ProgressMax: integer);
if Progress>0 then
ProgressBar1.MaxValue := ProgressMax;
ProgressBar1.Position := Progress
ProgressBar1.Progress := 0