想搞一个启动窗口,按照网上步骤修改工程文件代码,设置完成后运行正常,后来想增加个登录窗口,又在工程文件主窗口前写了一个登录窗口,结果在工程属性中的Form选项卡中没法子设置主窗口了,所有不是系统自动产生的窗口名称前都自动增加了一个空格,我改回去也不行,怎么弄都会在窗口名前自动增加一个空格,杯具了,求助!

解决方案 »

  1.   

    工程代码如下:
    program KDcwt;uses
      Forms,
      Login in 'Login.pas' { UserLogin } ,
      datamodule in 'datamodule.pas' { DataModule1: TDataModule } ,
      Main in 'Main.pas' { MainForm } ,
      PZForm in 'PZForm.pas' { pzzz } ,
      OffenUseZY in 'OffenUseZY.pas' { Form1 } ,
      KM in 'KM.pas' { Form2 } ,
      PYSearch in 'PYSearch.pas',
      global in 'global.pas',
      CommonFun in 'CommonFun.pas',
      NewKJKMB in 'NewKJKMB.pas' { Form3 } ,
      KMdetail in 'KMdetail.pas' { KMDe } ,
      KMdetailInsert in 'KMdetailInsert.pas' { Form4 } ,
      PclKM in 'PclKM.pas' { PclKMForm } ,
      Progressbar in 'Progressbar.pas' { ProgressForm } ,
      INISetup in 'INISetup.pas',
      assistItem in 'assistItem.pas' { AssistForm } ,
      Newfz in 'Newfz.pas' { NewFZForm } ,
      ItemSelect in 'ItemSelect.pas' { ItemSForm } ,
      PzFz in 'PzFz.pas' { PzfzForm } ,
      zz in 'zz.pas' { ZzForm } ,
      ServerMethodClient in 'ServerMethodClient.pas',
      dlz in 'dlz.pas' { DlzForm } ,
      splash in 'splash.pas' { SplashForm } ,
      DataModuleLogin in 'DataModuleLogin.pas' { DMLogin: TDataModule } ;
    {$R *.res}begin
      Application.Initialize;
      Application.MainFormOnTaskbar := True;
      DMLogin := TDMLogin.Create(Application);
      UserLogin := TUserLogin.Create(Application);
      UserLogin.ShowModal;
      if UserLogin.ModalResult <> 2 then
      begin
        SplashForm := TSplashForm.Create(Application);
        SplashForm.Show;
        SplashForm.Update;
        Application.CreateForm(TMainForm, MainForm);
        Application.CreateForm(TDataModule1, DataModule1);
        SplashForm.Close;
        SplashForm.Free;
      end;
      Application.Run;end.
      

  2.   

    Application.CreateForm(TDataModule1, DataModule1); 去掉