project1.dpr

来自「邮政电信等系统票据的精确定位打印」· DPR 代码 · 共 23 行

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  form3.ShowModal;
  if form3.ModalResult=1 then
  begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     Application.CreateForm(TForm2, Form2);
     Application.Run;
  end;
end.