PDemo1stClassMDI.cpp
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USERES("PDemo1stClassMDI.res");
  5. USEFORM("mainmdi.cpp", MainMdiForm);
  6. USEFORM("About.cpp", AboutBox);
  7. USEFORM("childwin.cpp", MDIChild);
  8. //---------------------------------------------------------------------------
  9. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  10. {
  11.         try
  12.         {
  13.                  Application->Initialize();
  14.                  Application->CreateForm(__classid(TMainMdiForm), &MainMdiForm);
  15.                  Application->Run();
  16.         }
  17.         catch (Exception &exception)
  18.         {
  19.                  Application->ShowException(&exception);
  20.         }
  21.         return 0;
  22. }
  23. //---------------------------------------------------------------------------