ProjectCB6.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USEFORM("Demo2Frm.cpp", frmDemo2);
  5. USEFORM("Demo3Frm.cpp", frmDemo3);
  6. USEFORM("Demo4Frm.cpp", frmDemo4);
  7. USEFORM("Demo5Frm.cpp", frmDemo5);
  8. USEFORM("Demo6Frm.cpp", frmDemo6);
  9. USEFORM("Demo7Frm.cpp", frmDemo7);
  10. USEFORM("MainFrm.cpp", frmMain);
  11. USEFORM("PopupFrm.cpp", frmPopup);
  12. USEFORM("Demo1Frm.cpp", frmDemo1);
  13. //---------------------------------------------------------------------------
  14. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  15. {
  16.     try
  17.     {
  18.         Application->Initialize();
  19.         Application->CreateForm(__classid(TfrmMain), &frmMain);
  20.                  Application->CreateForm(__classid(TfrmDemo2), &frmDemo2);
  21.                  Application->CreateForm(__classid(TfrmDemo3), &frmDemo3);
  22.                  Application->CreateForm(__classid(TfrmDemo4), &frmDemo4);
  23.                  Application->CreateForm(__classid(TfrmDemo5), &frmDemo5);
  24.                  Application->CreateForm(__classid(TfrmDemo6), &frmDemo6);
  25.                  Application->CreateForm(__classid(TfrmDemo7), &frmDemo7);
  26.                  Application->CreateForm(__classid(TfrmPopup), &frmPopup);
  27.                  Application->CreateForm(__classid(TfrmDemo1), &frmDemo1);
  28.                  Application->Run();
  29.     }
  30.     catch (Exception &exception)
  31.     {
  32.         Application->ShowException(&exception);
  33.     }
  34.     return 0;
  35. }
  36. //---------------------------------------------------------------------------