Question

delphi代码问题 求救

在制作一个Splash窗口时遇到的问题,我的制作步骤如下: 1.创建一个新项目,添加一个文本框控件,将caption值改为welcome to delphi7! 2.创建Splash窗体.新建一个窗体设好各种属性. 3.实现Splash窗体.添加代码:application.Initialize; splash:=Tsplash.Create(application); Splash.Show; Splash.update; application.CreateForm(Tform1,form1); splash. free; application.Run; 4.在主窗体的oncreate事件中添加代码: var CurTime:LongWord; Delaytime:LongWord; begin delaytime:=5000; curtime:=GetTickCount ; while(gettickcount<(curtime+delaytime))do; 当运行时总时出现这两个错误: [Error] Unit2.pas(32): Undeclared identifier: 'TForm1' [Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit2.pas' 请问怎么修改???????? 是Splash窗体

Answer 1

Unit1～～Form1：主窗体 Unit2～～splash Splash窗体 project->Options:把Splash窗体设为非自动产生窗体 procedure TForm1.FormCreate(Sender: TObject); var CurTime:LongWord; Delaytime:LongWord; begin delaytime:=5000; curtime:=GetTickCount ; while(gettickcount<(curtime+delaytime))do Application.ProcessMessages; //建议加上该句。 end; program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {splash}; {$R *.res} begin Application.Initialize; splash:=Tsplash.Create(application); Splash.Show; Splash.update; Application.CreateForm(TForm1, Form1); Application.Run; end. Delphi6＋win2k 编译，运行，通过。