【delphi开源代码栏目提醒】:本文主要为网学会员提供Unit2.pas,希望对需要Unit2.pas网友有所帮助,学习一下!
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit1;
type
TMainForm = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.FormCreate(Sender: TObject);
var startform:tstartform;
currtime:tsystemtime;
sec:word;
begin
startform:=tstartform.Create(self);
startform.Show;
startform.Update;
getsystemtime(currtime);
sec:=currtime.wSecond+5;
startform.ProgressBar1.Max:=sec;
startform.ProgressBar1.Min:=0;
while sec>currtime.wSecond do
begin
getsystemtime(currtime);
startform.ProgressBar1.Position:=currtime.wSecond;
end;
startform.Free;
end;
end.
上一篇:
Unit15.pas
下一篇:
法律专业开题报告范文