这是工程启动时的代码? Application.Initialize; Frm_fm:=TFrm_fm.Create(Application); Frm_fm.Update; Application.CreateForm(TDM, DM); Application.CreateForm(TFrmMain, FrmMain); while Frm_fm.Timer1.Enabled do Application.ProcessMessages; Frm_dl:=TFrm_dl.Create(Application); Frm_dl.Show; Frm_fm.Free; Frm_dl.Update; While Frm_dl.RB.Checked and Frm_dl.CB.Checked do Application.ProcessMessages; if Frm_dl.CB.Checked then begin application.CreateForm(TFrmMain,FrmMain); end else Frm_dl.Free; Application.Run; 请大家多多指教。
Frm_fm:=TFrm_fm.Create(Application);
Frm_fm.Update; Application.CreateForm(TDM, DM);
Application.CreateForm(TFrmMain, FrmMain);
while Frm_fm.Timer1.Enabled do
Application.ProcessMessages;
Frm_dl:=TFrm_dl.Create(Application);
Frm_dl.Show;
Frm_fm.Free;
Frm_dl.Update;
While Frm_dl.RB.Checked and Frm_dl.CB.Checked do
Application.ProcessMessages;
if Frm_dl.CB.Checked then
begin
application.CreateForm(TFrmMain,FrmMain);
end
else
Frm_dl.Free;
Application.Run;
请大家多多指教。