.NET (2)
Database (71)
Delphi IDE (89)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
Progress bar with the TWebBrowser component
This article has not been rated yet. After reading, feel free to leave comments and rate it.
Question:
How can I make the TWebBrowser component display a progress bar?
Answer:
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.
 |  | |
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject;
Progress, ProgressMax: integer);
begin { TForm1.WebBrowser1ProgressChange }
if Progress>0 then
begin
ProgressBar1.MaxValue := ProgressMax;
ProgressBar1.Position := Progress
end { Progress>0 }
else
ProgressBar1.Progress := 0
end; { TForm1.WebBrowser1ProgressChange }
| ||
 |  |
|
||||||||
Comments:
