怎样让程序运行到单元时先执行过程？如：在单元myformUnit中定义过程：procedure Tmyform.FormCreate(Sender: TObject);要让程序运行到my

Question

什么叫运行到myformUnit单元？，你可以覆盖Create方法，然后在Create方法里面处理你要执行的过程，一个对象首先执行的必定是Create了，但是你在Create里面执行FormCreate会不会有问题啊？值得商榷。

Answer 1

按 F8 键程序运行如下：program main;uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainForm},
  HelpUnit1 in 'HelpUnit1.pas' {Form2},
  ProgressUnit in 'ProgressUnit.pas' {Form3},
  DataDefUnit in 'DataDefUnit.pas',
  Warnning in 'Warnning.pas' {Form4},
  ModifyMaUnit in 'ModifyMaUnit.pas' {ModifymaForm},
  ChangFieldUnit in 'ChangFieldUnit.pas' {FieldForm},
  PrintUnit in 'PrintUnit.pas' {PrintForm};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);//到这里我要它先执行    // TMainForm.FormCreate(...)过程，此过程的定义在MainFormUnit单元，为什么不行？应该怎么做？
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TModifymaForm, ModifymaForm);
  Application.CreateForm(TFieldForm, FieldForm);
  Application.CreateForm(TPrintForm, PrintForm);
  Application.Run;
end.

Answer 2

我觉得你对delphi的机制没有搞清楚，
myformunit是个单元，
系统编译他以后，里面的代码才可以在预定的条件下执行，
而你说的在运行到myformunit，单元不能说是运行流程的单位，
而是代码的存储的一种方式。
你必须去顺应delphi的机制，而不是改变它的机制。