program AnyouReport;uses Forms, U_AnyouReport in 'U_AnyouReport.pas' {FrmAnyouReport}, ProChar in 'ProChar.pas' {FrmProChar}, Unit1 in 'Unit1.pas' {Form1}, SaleTotalType in 'SaleTotalType.pas' {frmSaleTotalType}, SaleTotalByType in 'SaleTotalByType.pas' {frmSTByType}, U_PurPriceAnalysis in 'U_PurPriceAnalysis.pas' {PurPriceAnalysis}, RefPrice in 'RefPrice.pas' {FrmRefPrice}, Lib in 'Lib.pas', LogIn in 'LogIn.pas' {frmLogin}, Data in 'Data.pas' {DataModule2: TDataModule}, PowerControl in 'PowerControl.pas' {frmPowerControl}, AddUser in 'AddUser.pas' {frmAddUser};{$R *.res}begin Application.Initialize; Application.Title := '集团'; Application.CreateForm(TFrmAnyouReport, FrmAnyouReport); Application.Run; end.这个事主程序创建时候的代码,别的我什么都没有做哦
其次,你的程序的CAPTION是否有名字!
就是在主窗体创建的时候写了创建另一个窗体的代码,然后关了创建的窗体显示主窗体
Forms,
U_AnyouReport in 'U_AnyouReport.pas' {FrmAnyouReport},
ProChar in 'ProChar.pas' {FrmProChar},
Unit1 in 'Unit1.pas' {Form1},
SaleTotalType in 'SaleTotalType.pas' {frmSaleTotalType},
SaleTotalByType in 'SaleTotalByType.pas' {frmSTByType},
U_PurPriceAnalysis in 'U_PurPriceAnalysis.pas' {PurPriceAnalysis},
RefPrice in 'RefPrice.pas' {FrmRefPrice},
Lib in 'Lib.pas',
LogIn in 'LogIn.pas' {frmLogin},
Data in 'Data.pas' {DataModule2: TDataModule},
PowerControl in 'PowerControl.pas' {frmPowerControl},
AddUser in 'AddUser.pas' {frmAddUser};{$R *.res}begin
Application.Initialize;
Application.Title := '集团';
Application.CreateForm(TFrmAnyouReport, FrmAnyouReport);
Application.Run;
end.这个事主程序创建时候的代码,别的我什么都没有做哦
begin
FormClass:=TFormClass.Create(Formclass);
FormClass.BorderStyle:=bsNone;
FormClass.Parent:=panel;
FormClass.Position:=poDefault;
FormClass.WindowState:=wsMaximized;
//FormClass.Width:=img.Width;
//FormClass.Height:=img.Height;
FormClass.Show;
END;
这个事我写的一个显示的函数