在工程文件中选File->New Form新建一个窗口,设计好窗口的外观。给窗口起名为AboutBox
,选Project->Options,将新建的窗口从自动建立中去掉。 选View->Project Source,打开
工程文件的源文件,在下面加入句子。
Uses AboutBox
Var
lTime :TDateTime;
Begin
Application.Initialize();
AboutBox=TAboutBox.Create(AboutBox);
AboutBox.Show;
AboutBox.Update;
lTime=GetTickCount;
Application.CreateForm(TMainForm,MainForm);
while((GetTickCount-lTime) / 1000 <3) do;
AboutBox.Hide;
AboutBox.Free;
Application.Run;
end;