请问在工程创建时的启动画面:
frmFlash := TForm.Create()
用Application创建不行,直接TForm.create(frmFlash)也不行
为什么? 他们有什么区别?
同样,动态生成控件这样又有什么区别?
frmFlash := TForm.Create()
用Application创建不行,直接TForm.create(frmFlash)也不行
为什么? 他们有什么区别?
同样,动态生成控件这样又有什么区别?
program waterdd;uses
shellapi,
windows,
Forms,
main_unit in 'main_unit.pas' {main_form},
dd_unit in 'DD_UNIT.PAS' {dd_form},
dd_ylrbu in 'dd_ylrbu.pas' {dd_ylrb},
dd_ylybu in 'dd_ylybu.pas' {dd_ylyb},
dd_ylrbfu in 'dd_ylrbfu.pas' {dd_ylrbf},
dd_gzrzu in 'dd_gzrzu.pas' {dd_gzrz},
dd_gzrzfu in 'dd_gzrzfu.pas' {dd_gzrzf},
ddxuanze in 'ddxuanze.pas' {dd_xuze},
dd_ylbju in 'dd_ylbju.pas' {dd_ylbj},
dd_ylybfu in 'dd_ylybfu.pas' {dd_ylybf},
dd_ylnbu in 'dd_ylnbu.pas' {dd_ylnb},
dd_ylnbfu in 'dd_ylnbfu.pas' {dd_ylnbf},
dd_gshnbu in 'dd_gshnbu.pas' {dd_gshnb},
dd_gshybu in 'dd_gshybu.pas' {dd_gshyb},
dd_xuanzeu in 'dd_xuanzeu.pas' {dd_xuanze},
dd_ylbjfu in 'dd_ylbjfu.pas' {dd_ylbjf},
dd_gshyblu in 'dd_gshyblu.pas' {dd_gshybl},
dd_gshnblu in 'dd_gshnblu.pas' {dd_gshnbl},
Unit_AddDW in 'Unit_AddDW.pas' {Form_AddDW},
Unit_AddMonD in 'Unit_AddMonD.pas' {Form_addMonW},
Unit_Circle in 'Unit_Circle.pas' {FormCircle},
Unit_spersent in 'Unit_spersent.pas' {Form_SourcePercent},
Unitcost in 'Unitcost.pas' {Formcost},
UnitDuibi in 'UnitDuibi.pas' {FormBiJao},
Unitpercent in 'Unitpercent.pas' {FormPercent},
Unitproduce in 'Unitproduce.pas' {FormProducesouce},
Unitsource in 'Unitsource.pas' {FormSource},
Unit_Source in 'Unit_Source.pas' {Form_Source},
KJQKU in 'KJQKU.pas' {kjqk},
GZRZLRU in 'GZRZLRU.pas' {GZRZLR},
u_ceyabiao in 'u_ceyabiao.pas' {ceyabiao},
u_shuichangxinxi in 'u_shuichangxinxi.pas' {shuichangxinxi},
u_shuiyuan in 'u_shuiyuan.pas' {shuiyuanxinxi},
u_yongshuifenlei in 'u_yongshuifenlei.pas' {yongshuifenlei},
u_jiayabengzhan in 'u_jiayabengzhan.pas' {jiayabengzhan},
Unit_information in 'Unit_information.pas' {Form_Information},
u_yuanshuijiage in 'u_yuanshuijiage.pas' {yuanshuijiage},
u_yuegongshui in 'u_yuegongshui.pas' {yuegongshui},
u_yalibiaozhun in 'u_yalibiaozhun.pas' {yalibiaozhun},
Unit_waterBeng in 'Unit_waterBeng.pas' {Form_WaterBeng},
Unit_machineBeng in 'Unit_machineBeng.pas' {Form_machineBeng},
unit_info_1 in 'unit_info_1.pas' {form_infobase},
flash in 'flash.pas' {frmflash},
Unit_monthYc in 'Unit_monthYc.pas' {Form_monthYc},
Unit_dayYc in 'Unit_dayYc.pas' {Form_ycDay},
yc_nianunit in 'yc_nianunit.pas' {yc_nianform},
Unit_watercome in 'Unit_watercome.pas' {Form_watercome},
dd_gshrbu in 'dd_gshrbu.pas' {dd_gshrb},
u_shchyl in 'u_shchyl.pas' {flowwater_frm},
UnitDatamodule in 'UnitDatamodule.pas' {DataModuleGloble: TDataModule},
UnitGloble2 in 'UnitGloble2.pas' {DataModuleGloble2: TDataModule},
Unit_Gloable in 'Unit_Gloable.pas',
u_renyuan in 'u_renyuan.pas' {renyuan_frm},
Unit_yc in 'Unit_yc.pas' {Form_YC},
Unit_login in 'Unit_login.pas' {login_frm},
unit_sysmanage in 'unit_sysmanage.pas' {sysmanage_frm},
unit_updatemm in 'unit_updatemm.pas' {updatemm_frm},
DescubeData in 'DescubeData.pas' {DataDescube},
SonghuabaSouce in 'SonghuabaSouce.pas' {DescubeSongFrm},
TatolPercent in 'TatolPercent.pas' {TatolPercentFrm},
SongStore in 'SongStore.pas' {SongStoreFrm},
SongSupply in 'SongSupply.pas' {SongSupplyFrm},
SongWcome in 'SongWcome.pas' {WatercomesFrm},
SongRain in 'SongRain.pas' {RainCoutFrm},
DatePercent in 'DatePercent.pas' {DatePecent},
waterHeight in 'waterHeight.pas' {WaterHeightFrm},
OutWater in 'OutWater.pas' {OutwaterFrm},
u_dachaihe in 'u_dachaihe.pas' {dachaihe_frm},
Unit_daygivenwater in 'Unit_daygivenwater.pas' {daygivenwater_frm},
Unit_dayshuichang in 'Unit_dayshuichang.pas' {dayshuichang_frm},
U_fenleiyongshui in 'U_fenleiyongshui.pas' {fenleiyongshui_frm},
U_dachaihepr in 'U_dachaihepr.pas' {dachaihepr_frm},
Unit_flowt in 'Unit_flowt.pas' {Form_Flowt},
Unit_FengLeiNums in 'Unit_FengLeiNums.pas' {Form_fenleinums},
Unit_runMachine in 'Unit_runMachine.pas' {Form_RunMachine},
Unit_daygivenwaterpr in 'Unit_daygivenwaterpr.pas' {daygivenwaterpr_frm},
U_fenleiyongshuipr1 in 'U_fenleiyongshuipr1.pas' {fenleiyongshuipr1_frm},
U_fenleiyongshuipr2 in 'U_fenleiyongshuipr2.pas' {fenleiyongshuipr2_frm},
gshgyU in 'gshgyU.pas' {GShGy},
Ydjshangshuiu in 'Ydjshangshuiu.pas' {Shangshui},
HeightPrint in 'HeightPrint.pas' {WaterHieghtPrintFrm},
StorePrint in 'StorePrint.pas' {StorePrintFrm},
WaterComePrint in 'WaterComePrint.pas' {ComePrint},
Usb_cyinformation in 'Usb_cyinformation.pas' {sb_cyinformation},
Usb_bxjh in 'Usb_bxjh.pas' {frmsb_bxjh},
Usb_byjl in 'Usb_byjl.pas' {frmsb_byjl},
Usb_byjll in 'Usb_byjll.pas' {frmsb_byjll},
Usb_ceyabiao in 'Usb_ceyabiao.pas' {form_ceyabiao},
Usb_check in 'Usb_check.pas' {frmsb_check},
Usb_checkrecord in 'Usb_checkrecord.pas' {frsb_checkrecord},
Usb_bxd in 'Usb_bxd.pas' {sb_frbxd},
U_computerinfor in 'U_computerinfor.pas' {frm_computerinfor},
U_computerecheckr in 'U_computerecheckr.pas' {fr_computercheckr},
U_computercheck in 'U_computercheck.pas' {frm_computercheck},
Udd_scddqk in 'Udd_scddqk.pas' {dd_scddqk};var i: integer;
{$R *.res}begin
Application.Initialize;
frmflash := Tfrmflash.Create(application);
frmflash.Show;
frmflash.Update;
Application.Title := '昆水生产调度系统';
Application.CreateForm(Tmain_form, main_form);
Application.CreateForm(TDataModuleGloble, DataModuleGloble);
Application.CreateForm(TDataModuleGloble2, DataModuleGloble2);
i := gettickcount() div 1000;
while (gettickcount() / 1000 < (i + 3)) do
begin
end;
frmflash.Hide;
frmflash.free;
Application.Run;
end.
frmFlash:TfrmFlash;frmFlash:=Tfrom.create();
^^^^^^
如果你定义的是
var
frmFlash:TfrmFlash;
应该用
frmFlash := TfrmFlash.Create()
var
f_flash:tform_flash;
...
f_flash:=tform_flash.creat(application);
f_flash.show;
f_flash.refresh;
Application.CreateForm(TfrmFlash,frmFlash)
和
frmFlash := TfrmFlash.create()
这两种创建有什么区别
因为我在做闪屏时在工程中只能用第二种方法,而第一种不能,为什么?