初学者有问题相求,各位请进 我是一个初学者,请问在DELPHI中,如何创建两个窗体,要求运行时首先只显示第一个窗体再过一小段时间后,再只显示第二个窗体,就象我们常见的启动窗体和登录窗体。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi默认第一个显示的窗体是主窗体修改dpr文件,把需要第一个显示的窗体先创建、显示,然后再创建其他的窗体,当其他的都准备就绪后,就把第一个free掉 要在楼上说的基础上加个timer控件吧? 在项目文件中,我新建两个窗体,属性都没有改动,想让第一个窗体显示5秒后,再显示第二个窗体。对dpr文件的修改如下:但运行有错。请问如何修改。begin Application.Initialize; Application.CreateForm(TForm1, Form1); Form1:=TForm1.Create(application); Form1.Show; Form1.Update; Sleep(5000); Form1.Free; Application.CreateForm(TForm2, Form2); Form2.ShowModal; Form2:=TForm2.Create(application); Application.Run;end. 你用timer你的代码有问题 错误信息是:Undeclared identifier"Sleep"我添加了一个timer控件。不知道是怎么回事? 代码应怎样改?添加timer控件后,还是设置哪些属性? If you wanna use 'Sleep',you need add 'Windows' to uses list. program Project1;uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin Application.Initialize; Form2 := TForm2.Create(nil); Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1);// Application.CreateForm(TForm2, Form2); Sleep(5000); Form2.Free; Application.Run;end. 其实Sleep给用户的印象不好的,程序好像死掉一样的等5秒一般Sleep不要,并不一定就非让Form2在这儿停5秒这儿在Form2显示后,后面继续初始化其他必要的东西如果初始化都Ok了,则Form2释放,系统正常运行呵呵 请问代码改为:begin Application.Initialize; Form2 := TForm2.Create(nil); Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1);// Application.CreateForm(TForm2, Form2); Sleep(5000); Form2.Free; Application.Run;end.那还要增加TIME控件吗? 求一个任务完成次数的查询写法? ehlib的dbgrid的checkbox的用法 FastReport4.0安装后中文的问题。 关于showmessage窗体的自动关闭,很急 imagelist1.Draw(form1.Canvas,10,20,0)的时候画出的图片很小,如何设置其显示为原始大小 TSpinEdit控件使用的一点小问题 整数和小数的问题,为什么不行? 如何在服务端释放客户端已经退出的socket? adoquery 的问题。 刚接触Delphi,问个简单的问题 ADO批量插入数据问题,请高手指点 SOCKET,请高手指点,如果知道接受到服务端数据!!!!
但运行有错。请问如何修改。
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1:=TForm1.Create(application);
Form1.Show;
Form1.Update;
Sleep(5000);
Form1.Free;
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2:=TForm2.Create(application);
Application.Run;
end.
你的代码有问题
Undeclared identifier"Sleep"
我添加了一个timer控件。
不知道是怎么回事?
添加timer控件后,还是设置哪些属性?
Forms,
Windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}
begin
Application.Initialize;
Form2 := TForm2.Create(nil);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Sleep(5000);
Form2.Free;
Application.Run;
end.
Application.Initialize;
Form2 := TForm2.Create(nil);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Sleep(5000);
Form2.Free;
Application.Run;
end.
那还要增加TIME控件吗?