准备工作: 在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件.
　　unit　Unit1;
　　interface
　　uses
　　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,
　　Dialogs,　ExtCtrls,　StdCtrls;
　　type
　　TForm1　=　class(TForm)
　　Button1:　TButton;
　　Timer1:　TTimer;
　　procedure　Button1Click(Sender:　TObject);
　　procedure　Timer1Timer(Sender:　TObject);
　　end;
　　var
　　Form1:　TForm1;
　　implementation
　　{$R　*.dfm}
　　uses　Gauges;
　　var　Gauge1:　TGauge;
　　procedure　TForm1.Button1Click(Sender:　TObject);
　　var
　　frm:　TForm;
　　begin
　　frm　:=　TForm.Create(nil);
　　frm.BorderStyle　:=　bsSizeToolWin;
　　frm.Width　:=　300;
　　frm.Height　:=　80;
　　frm.Position　:=　poDesktopCenter;
　　Gauge1　:=　TGauge.Create(frm);
　　Gauge1.MinValue　:=　0;
　　Gauge1.MaxValue　:=　100;
　　Gauge1.Width　:=　frm.ClientWidth　-　40;
　　Gauge1.Height　:=　20;
　　Gauge1.Left　:=　20;
　　Gauge1.Top　:=　(frm.ClientHeight　-　Gauge1.Height)　div　2;
　　Gauge1.Parent　:=　frm;
　　Timer1.Interval　:=　100;
　　Timer1.Enabled　:=　True;
　　frm.ShowModal;
　　frm.Free;
　　Timer1.Enabled　:=　False;
　　end;
　　procedure　TForm1.Timer1Timer(Sender:　TObject);
　　begin
　　if　Assigned(Gauge1)　then
　　begin
　　Gauge1.Progress　:=　Gauge1.Progress　+　1;
　　if　Gauge1.Progress　=　Gauge1.MaxValue　then　TForm(Gauge1.Parent).ModalResult　:=　1;
　　end;
　　end;
　　end.

　　推荐:

　　delphitree从一个表复制到另一个表

　　更多相关资料:

　　考试大教育全国计算机等级考试在线测试平台

　　全国计算机等级考试论坛