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栏)
不知是何原因,敬请指教!
全部程序复制如下:
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栏)
不知是何原因,敬请指教!