说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

制作主窗口显示前的版权窗口-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
制作主窗口显示前的版权窗口-Delphi资料

在工程文件中选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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘