ereport.dpr

来自「delphi编程控件」· DPR 代码 · 共 47 行

program eReport;

uses
  Forms,
  Windows,
  Align in 'Align.pas' {AlignForm},
  Border in 'Border.pas' {BorderForm},
  Color in 'Color.pas' {ColorForm},
  diagonal in 'diagonal.pas' {DiagonalForm},
  main in 'main.pas' {MainForm},
  margin in 'margin.pas' {MarginForm},
  NewDialog in 'NewDialog.pas' {frmNewTable},
  PropDlg in 'PropDlg.pas' {PropertyForm},
  vsplit in 'vsplit.pas' {VSplitForm},
  ReportControl in '..\ReportControl.pas',
  SetWorkPlace in 'SetWorkPlace.pas' {Frm_SetWorkPlace},
  About in 'About.pas' {frm_About};
   Const AppName = 'EReport中文制表工具编辑器';
   var PrevInstance :Integer;
{$R *.RES}

begin
  PrevInstance := FindWindow('TApplication', AppName);
  if PrevInstance <> 0 then
    if IsIconic(PrevInstance) then
       ShowWindow(PrevInstance, sw_Restore)
    else
       BringWindowToTop(PrevInstance)
  else
  Begin
  Application.Initialize;
  Application.Title := 'EReport中文制表工具编辑器';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAlignForm, AlignForm);
  Application.CreateForm(TBorderForm, BorderForm);
  Application.CreateForm(TColorForm, ColorForm);
  Application.CreateForm(TDiagonalForm, DiagonalForm);
  Application.CreateForm(TMarginForm, MarginForm);
  Application.CreateForm(TfrmNewTable, frmNewTable);
  Application.CreateForm(TPropertyForm, PropertyForm);
  Application.CreateForm(TVSplitForm, VSplitForm);
  Application.CreateForm(TFrm_SetWorkPlace, Frm_SetWorkPlace);
  Application.CreateForm(Tfrm_About, frm_About);
  Application.Run;
  End;
end.