如何用弹出窗口显示进度

文章作者 100test 发表时间 2011:03:22 18:44:31
来源 100Test.Com百考试题网

导读：如何用弹出窗口显示进度，在空白窗体上添加 Button 和 Timer, 并分别激活它们的默认事件。 　　准备工作: 在空白窗体上添加 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.

　　推荐:

　　#0000ff>delphitree从一个表复制到另一个表

　　更多相关资料:

　　#0000ff>百考试题教育全国计算机等级考试在线测试平台

　　#0000ff>全国计算机等级考试论坛