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

馮強 2002-09-02 10:25:51
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.
...全文
90 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
馮強 2002-09-02
  • 打赏
  • 举报
回复
已经将程序放入工程文件,但定时器仍然报错。信息如下:

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

难道是定时器设置有误?
  • 打赏
  • 举报
回复
你把定时器放在你的界面窗体上 到时间你Free你的界面窗体
rainsea 2002-09-02
  • 打赏
  • 举报
回复
qq:35735257
rainsea 2002-09-02
  • 打赏
  • 举报
回复
不要这样写。
要写在project文件里,并且自动创建窗体里,不要创建这个窗体。
Application.Initialize;
创建这个封面窗体
Application.CreateForm(TMainForm, MainForm);
...其它窗体;
释放这个窗体;
这样做正好所有窗体创建完成,同时关掉封面了。
Application.Run;
xqjt 2002-09-02
  • 打赏
  • 举报
回复
软件封面应该做在工程文件里,而不应该在主窗体程序中完成,再试试吧
haoco 2002-09-02
  • 打赏
  • 举报
回复
用定时器会很慢的。
馮強 2002-09-02
  • 打赏
  • 举报
回复
用定时器,我已搞定。

上面有兄弟提到不用定时器,还有什么好的方法,请指教?
馮強 2002-09-02
  • 打赏
  • 举报
回复
to:Rainsea(飞龙在天)

现在我已经将代码放入project文件里,但因为程序初始化时间很短,我想让封面显示有个延时,哪果用循环,因为我用的是P4 2G,害怕在速度慢的机器上显示时间太长。必须要用timer控件精确控制。请指教.
菩提小树 2002-09-02
  • 打赏
  • 举报
回复
方法很多!
rainsea 2002-09-02
  • 打赏
  • 举报
回复
不要使用timer控件。
我说的方法刚好让你的程序启动完毕,封面关掉。
馮強 2002-09-02
  • 打赏
  • 举报
回复
我添加的时钟控件放在SplashForm上。如果把控件名改成tmMainTimer,程序不再报错,但运行停在循环处。请教是什么原因?该如何设置和引用时钟控件?

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧