delphi2010工程文件修改出错,无法设置主窗口,高手救命呀! 想搞一个启动窗口,按照网上步骤修改工程文件代码,设置完成后运行正常,后来想增加个登录窗口,又在工程文件主窗口前写了一个登录窗口,结果在工程属性中的Form选项卡中没法子设置主窗口了,所有不是系统自动产生的窗口名称前都自动增加了一个空格,我改回去也不行,怎么弄都会在窗口名前自动增加一个空格,杯具了,求助! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 工程代码如下: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. Application.CreateForm(TDataModule1, DataModule1); 去掉 求助有关 Tlistview 控件 100分相送 窗口的隐藏与显示问题 关于软件保护的问题请教 数据压缩恢复问题?压缩以后不能恢复? active form生成OCX后发布问题? 用水晶报表9编写的DELPHI怎样快速发布到客户电脑上 怎样实现窗体拖动大小? 如何设置delphi默认的字体为宋体,大小为9? 求:远程DELPHI家教! 菜鸟问题--只许回答不许笑! delphi 无法加载jpg图片 如何将指针所指位置转换为16进制文本
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.