在状态条中展示进度条，WebBrowser示例

?

在状态条中显示进度条，原理是在TForm1类中加progress, progressMax变量，webbrowser控件更新之，StatusBar在刷新的时候依据这两个变量画出长条状图形(即进度条)。

(附件是一个例子。)

?

unit Unit1;

interface

uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, Buttons, ComCtrls, Math;

type
? TForm1 = class(TForm)
??? wb1: TWebBrowser;
??? pnl1: TPanel;
??? stat1: TStatusBar;
??? lbl1: TLabel;
??? btn3: TSpeedButton;
??? edt1: TEdit;
??? procedure btn3Click(Sender: TObject);
??? procedure FormShow(Sender: TObject);
??? procedure stat1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
????? const Rect: TRect);
??? procedure FormCreate(Sender: TObject);
??? procedure wb1ProgressChange(Sender: TObject; Progress,
????? ProgressMax: Integer);
??? procedure edt1KeyPress(Sender: TObject; var Key: Char);
??? procedure wb1StatusTextChange(Sender: TObject; const Text: WideString);
??? procedure wb1TitleChange(Sender: TObject; const Text: WideString);
? private
??? { Private declarations }
? public
??? progress, progressMax: Integer;
? end;

var
? Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn3Click(Sender: TObject);
begin
? wb1.Navigate(edt1.Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
? btn3.Click;
end;

procedure TForm1.stat1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
? const Rect: TRect);
var
? x:Integer;
begin
? if Panel.Index=1 then
? begin
??? with stat1.Canvas do
??? begin
????? Brush.Color := $00641F04;
????? x := Floor((Rect.Right-Rect.Left)*progress/progressMax);
????? Rectangle(Rect.Left, Rect.Top+1, Rect.Left+x, Rect.Bottom-1);
??? end;
? end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
? progress := 0;
? progressMax := 100;
end;

procedure TForm1.wb1ProgressChange(Sender: TObject; Progress,
? ProgressMax: Integer);
begin
? self.progress := Progress;
? if ProgressMax > 0 then
??? self.progressMax := ProgressMax;
? stat1.Panels[2].Text := IntToStr(Floor(self.progress/self.progressMax*100)) + '%';
? stat1.Refresh;
end;

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
? if Key = #13 then btn3.Click;
end;

procedure TForm1.wb1StatusTextChange(Sender: TObject;
? const Text: WideString);
begin
? stat1.Panels[0].Text := Text;
end;

procedure TForm1.wb1TitleChange(Sender: TObject; const Text: WideString);
begin
? Caption := Text;
? edt1.Text := wb1.LocationURL;
end;

end.