创建启动画面时出错了

[wgzhou747217]

begin
Application.Initialize;
try
begin
flash_form:=Tflash_form.create(application);
flash_form.show;//请稍候：正在连接数据库
flash_form.update;
Application.CreateForm(TnokasytData, nokasytData);
flash_form.panel1.caption:='请稍候：正在启动';
Application.CreateForm(TForm1, Form1);
end;
finally
flash_form.close;
end;
Application.Run;
end.

出现：[Error] nokasyt.dpr(62): '.' expected but ':=' found的错误，
请教各位是错在哪里
当我去掉显示画面时，没错

[wsforqyc]

begin
Application.Initialize;
begin
flash_form:=Tflash_form.create(application);
flash_form.visible:=true;//请稍候：正在连接数据库
flash_form.update;
Application.CreateForm(TnokasytData, nokasytData);
flash_form.panel1.caption:='请稍候：正在启动';
Application.CreateForm(TForm1, Form1);
end;
flash_form.free;
Application.Run;
end.

[ihihonline]

看中.....//没有问题
试中.....

[wgzhou747217]

第62行是
flash_form:=Tflash_form.create(application);
根本就到不了下面的行

[milpas]

看不出,跟踪一下在哪出错

[milpas]

try
begin <--------------------------------------------- 这个可以不用加
flash_form:=Tflash_form.create(application);
flash_form.show;//请稍候：正在连接数据库
flash_form.update;
Application.CreateForm(TnokasytData, nokasytData);
flash_form.panel1.caption:='请稍候：正在启动';
Application.CreateForm(TForm1, Form1);
end; <---------------------------------------------
finally
flash_form.close;
end;

[ihihonline]

才20分，分有点少哦；
begin
Application.Initialize;
try
begin
flash_form:=Tflash_form.create(application); //你放的太高了，往下放一放；
flash_form.show;//请稍候：正在连接数据库
flash_form.update;
Application.CreateForm(TnokasytData, nokasytData);
flash_form.panel1.caption:='请稍候：正在启动';
Application.CreateForm(TForm1, Form1);
end;
finally
flash_form.close;
end;
Application.Run;
end.
/////////////////////////////////////////////////////////////
如果按你这样去运行的话，那么，你现在再打开
project→option...→forms你可以看一看，你的主窗体是flash_form;
你close时，都close了，能不出错？
往下放；
应该没有问题

[wgzhou747217]

flash_form的代码如下：

unit flash_form;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
Tflash = class(TForm)
Panel1: TPanel;
private
{ Private declarations }
public
{ Public declarations }
end;

var
flash: Tflash;

implementation

{$R *.DFM}

end.

[wgzhou747217]

对不起
我是蔡鸟，不是我不给分，是因为我的可用分没了，只有等系统自动给我加
由于连接数据库和启动程序有一段时间，我想给用户一个提示。
往下放，我不知道放哪里好？

[ihihonline]

我晕
begin
Application.Initialize;
try
begin
flash:=Tflash.create(application); //flash_form
flash.show;//请稍候：正在连接数据库
flash.update; //flash_form
Application.CreateForm(TnokasytData, nokasytData);
flash.panel1.caption:='请稍候：正在启动';
Application.CreateForm(TForm1, Form1);
end;
finally
flash.close; //flash_form
end;
Application.Run;
end.
大哥，试一试；
把你的flash_form改成flash

[ihihonline]

你看一看我的解释
你把Unit和Form搞反了，所以就出错了；
你把
Program里的，所有你自己加的flash_form改成flash；
应该没有问题了；

[ihihonline]

再说一点；
show是不起作用的；
你应该用showmodal来作，然后，再在你的
flash上放timer控件，在它的事件里，进行写panel1.caption；

[wgzhou747217]

第62行是
flash_form:=Tflash_form.create(application);
是编译的时候出错
根本就到不了下面的行

[wgzhou747217]

小小，真的感谢你
到http://www.csdn.net/expert/topic/536/536637.xml?temp=.3546717上去
只要你随便说句话，那里还有100分也给你