为程序加个开始页出现错误,请指教!(0分)

  • 主题发起人 主题发起人 cjh_xf
  • 开始时间 开始时间
C

cjh_xf

Unregistered / Unconfirmed
GUEST, unregistred user!
我按《delphi5开发人员指南》上给程序加个封面的例子编写程序,却编译不能通过,现把
全部程序复制如下:
program splash;

uses
Forms,
mainform in 'mainform.pas' {mainfrm},
splashform in 'splashform.pas' {splashfrm};

{$R *.RES}

begin
Application.Initialize;
//Application.CreateForm(Tsplashfrm, splashfrm);
SplashForm:=TSplashfrom.Create(Application);
SplashForm.Show;
SplashForm.Update;

while SplashForm.Timer1.Enabled do //这两句是为程序加上延时,timer1是splash
Application.ProcessMessages; //中的一个计时器,在ontime事件是enabled变为false

Application.CreateForm(Tmainfrm, mainfrm);
//
SplashForm.Hide;
SplashForm.free;
Application.Run;
end.
其中,splashform是封面,mainform是程序主页。
可是编译时,在语句:
SplashForm:=TSplashfrom.Create(Application);
处总出现错误提示:
'.' expected but ':=' found
(程序中我已经将project option中的splashform放在了available form栏)
不知是何原因,敬请指教!

 
呵呵,你给他们弄糊涂了吧
你的splashform是单元名字,当然是'.'expected了,
应该是
SplashFrm:=TSplashfrm.Create(Application);
把下面的SpashForm都改成SplashFrm
 
3Q [:)]

另:application.processmessage;
这句有什么用?根本没见到什么提示信息呀!
 
这句主要是让程序不停留在这里,可以进行其他的工作.
 
接受答案了.
 
后退
顶部