这样写代码运行正常,但为什么login窗口没出现呢??

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.close;
login.showmodal;
end;end.form1可以正常关闭,login窗口却不能正常显示出来,这是什么原因????

Answer 1

Form1是主窗口，关闭了整个程序就退出了，还怎么能Show出另一个窗口？

Answer 2

liangqingzhi(老之) 大哥
我给你发信息了,你看下好么?

Answer 3

那请问老之,我现在想把form1关闭以后再打开form2,form2设置为主窗口也行,那代码应该怎么改,请教^^^

Answer 4

liangqingzhi(老之),我也找你有事\事情呀!求你了给我回答一下吧!我真的是急呀!你做做好事吧!

Answer 5

To fchnipj(中国人) 
修改dpr文件
   Form2:=TForm2.Create(Application); //Form2是一个显示一张图片的启动窗体
   Form2.Show;
   Form2.Update;
   Application.CreateForm(TForm1, Form1);//Form1就是程序的主窗体
   Form2.Close;
   Application.Run;To waiwaizz() 
我已经给你发邮件了

Answer 6

这是改后的代码,运行只出现form2窗口,不知道老之给的代码应该放在何处?
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
 Form1:=TForm1.Create(Application); //Form1是一个显示一张图片的启动窗体
   Form1.Show;
   Form1.Update;
   Application.CreateForm(TForm2, Form2);//Form2就是程序的主窗体
   Form1.Close;
   Application.Run;
end;end.

Answer 7

Project-View Source,放在dpr文件里

Answer 8

Project-View Source这个有对应的快捷键吗??

Answer 9

如果按照老之的方法可以的话,那form2显示的时间又有多久呢?能自己控制显示时间吗??

Answer 10

Sleep(1000);//更改值，单位为豪秒
Form1.Update;

Answer 11

program xxxx;uses
  Forms,
  Form2 in 'Form2.pas' {frmForm2},
  Form1 in 'Form1.pas' {frmForm1},{$R *.RES}begin
  Application.Initialize;
  Form2:=TForm2.Create(Application); //Form2是一个显示一张图片的启动窗体
  Form2.Show;
  Form2.Update;
  Application.CreateForm(TForm1, Form1);//Form1就是程序的主窗体
  Form2.Close;
  Application.Run;
end.

Answer 12

Sleep(1000);//更改值，单位为豪秒
Form1.Update;已经按照你的方法改了,提示sleep错误哦,是否单词有误?

Answer 13

谢谢各位,这里的人真的很不错.
另外,sleep的问题还没搞定,希望脑脑帮我改改.谢谢了.

Answer 14

1.pas文件怎么改名?
2.这段代码是否是用静态form来实现的.
3.你能写一个用代码来建立form的程序吗?我现在不想用file-new-form这样操作来新建form.1.pas文件在保存时命名就可以了2.是的3.在主窗体代码中加入
procedure TfrmMain.N1Click(Sender: TObject);//N1为创建按钮
begin
  frmNew1:=TFrmNew1.create(application);
  frmNew1.showmodal;
end;

Answer 15

呵呵！
放到Project单元中的
begin
  Application.Initialize;
  //添加代码行
  Form1:=TForm1.Create(Application); //Form1是一个显示一张图片的启动窗体
  Form1.Show;
  Form1.Update;
  Application.CreateForm(TForm2, Form2);//Form2就是程序的主窗体
  Form1.Close;  
  Application.Run;
end;

Answer 16

刚刚测试了一下sleep的功能,感觉有点不爽,因为我在form2里加载了image组件,添加了图片然后测试这段代码,发现图片到最后才显示一下,然后马上转到form1,不知道这中间的延迟是怎么回事,用别的列入button组件就不会出现这个问题,是不是加载图片需要的时间比较长的原因呢???