在显示封面时，定时器错误，请帮忙看看。

[馮強]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;


type
TMainForm = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

uses Unit2;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
var i:Integer;
begin

Application.Initialize;

SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;


While SplashForm.tmMainTimer.Enabled do //这句始终编译不过，定时器
Application.ProcessMessages; //已经放在了SplashForm上。

SplashForm.Hide;
SplashForm.Free;

end;

end.

[馮強]

我添加的时钟控件放在SplashForm上。如果把控件名改成tmMainTimer，程序不再报错，但运行停在循环处。请教是什么原因？该如何设置和引用时钟控件？

[rainsea]

不要使用timer控件。
我说的方法刚好让你的程序启动完毕，封面关掉。

[菩提小树]

方法很多！

[馮強]

to:Rainsea(飞龙在天)

现在我已经将代码放入project文件里，但因为程序初始化时间很短，我想让封面显示有个延时，哪果用循环，因为我用的是P4 2G，害怕在速度慢的机器上显示时间太长。必须要用timer控件精确控制。请指教.

[馮強]

用定时器，我已搞定。

上面有兄弟提到不用定时器，还有什么好的方法，请指教？

[haoco]

用定时器会很慢的。

[xqjt]

软件封面应该做在工程文件里，而不应该在主窗体程序中完成，再试试吧

[rainsea]

不要这样写。
要写在project文件里，并且自动创建窗体里，不要创建这个窗体。
Application.Initialize;
创建这个封面窗体
Application.CreateForm(TMainForm, MainForm);
...其它窗体；
释放这个窗体；
这样做正好所有窗体创建完成，同时关掉封面了。
Application.Run;

[rainsea]

qq:35735257

[紫气东来-长江]

你把定时器放在你的界面窗体上 到时间你Free你的界面窗体

[馮強]

已经将程序放入工程文件，但定时器仍然报错。信息如下：

[Error] Project1.dpr(20): Undeclared identifier: 'tmMainTimer'
[Error] Project1.dpr(20): 'DO' expected but identifier 'Enabled' found

难道是定时器设置有误？