发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 2.2 制作主窗口的版权窗口
发信站: 哈工大紫丁香 (2000年09月01日13:23:25 星期五), 站内信件

制作主窗口显示前的版权窗口  

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


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]