急!!在线等!

Question

下面是我所做的窗体的源代码,但我点击了运行之后,运行了一秒就自动退出,请问是哪里出了错!!!
unit wuya;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    A1: TMenuItem;
    N1: TMenuItem;
    N21: TMenuItem;
    N2: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N3: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    B1: TMenuItem;
    N11: TMenuItem;
    N22: TMenuItem;
    N4: TMenuItem;
    N32: TMenuItem;
    N42: TMenuItem;
    C1: TMenuItem;
    N12: TMenuItem;
    N23: TMenuItem;
    N33: TMenuItem;
    N43: TMenuItem;
    N13: TMenuItem;
    N24: TMenuItem;
    N34: TMenuItem;
    D1: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N5: TMenuItem;
    N35: TMenuItem;
    E1: TMenuItem;
    N14: TMenuItem;
    N27: TMenuItem;
    N6: TMenuItem;
    N36: TMenuItem;
    N44: TMenuItem;
    F1: TMenuItem;
    N15: TMenuItem;
    N28: TMenuItem;
    N37: TMenuItem;
    N45: TMenuItem;
    N7: TMenuItem;
    N52: TMenuItem;
    procedure N51Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
 uses aboutform;{$R *.dfm}procedure TForm1.N51Click(Sender: TObject);
var
   i:Integer;
begin
i:= MessageBox('真的要退出系统吗？','退出系统',mb_OKCanel+mb_DefButton1+mbIconQuestion);
if i=1 then
  application.Terminate
else
  close;end;end.下面是我在点击运行时自动生成的!能不能不让他生成??为什么有的窗体在运行时不会生成??而有的又会生成呢???不懂!!program Project1;uses
  Forms;{$R *.res}begin
  Application.Initialize;
  Application.Run;
end.

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);  //--->你少了这句，这个文件是你的命脉不能少
  Application.Run;
end.

Answer 2

没有Application.CreateForm(TForm1, Form1);

Answer 3

再提一个问::::::::::::::::::::::
人雅的标记说的在use中的Unit1 in 'Unit1.pas';这一句,因为我的Unit1取名为wuyu,所以我用的wuya in 'wuya.pas'但说没有'wuya.dcu',这个'.dcu'是个什么类型,我应该怎么改才能让窗体运行起来??

Answer 4

你可以认它自动生成,也可以不:
Project->Options->Forms->把左边列表内的表单提出到右边就行了

Answer 5

你可以直接把UNIT1.DCU改为WUYU.DCU.
当然最好的方法是在DELPHI中把你的UNIT1.PAS另存为WUYU.PAS这样系统就帮你全改了.包括工程文件中的 xxx in 'xxx.pas'

Answer 6

Application.Initialize;
Application.CreateForm(TForm1, Form1);  
Application.Run;

Answer 7

提问：：：：：：：：：
GoldShield（金盾）所说的forms中左右两边列表中都没有表单，而且在最开始时我就把unit1改名为wuya，但我找不到.dcu文件。我应该怎么办？？？