开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Main.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Main.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "unit1.h"
  6. #include "Main.h"
  7. #include "About.h"
  8. //---------------------------------------------------------------------------
  9. #pragma resource "*.dfm"
  10. TMainForm *MainForm;
  11. //---------------------------------------------------------------------------
  13. __fastcall TMainForm::TMainForm(TComponent *Owner)
  14. : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TMainForm::CreateMDIChild(String Name)
  20. {
  21. TMDIChild *Child;
  23. //--- create a new MDI child window ----
  24. Child = new TMDIChild(Application);
  25. Child->Caption = Name;
  26. if (FileExists (Name))
  27. Child->Memo1->Lines->LoadFromFile(Name);
  28. }
  29. //---------------------------------------------------------------------------
  31. void __fastcall TMainForm::FileNew1Execute(TObject *Sender)
  32. {
  33. CreateMDIChild("NONAME" + IntToStr(MDIChildCount + 1));
  34. }
  35. //---------------------------------------------------------------------------
  37. void __fastcall TMainForm::FileOpen1Execute(TObject *Sender)
  38. {
  39. if (OpenDialog->Execute())
  40. CreateMDIChild(OpenDialog->FileName);
  41. }
  42. //---------------------------------------------------------------------------
  44. void __fastcall TMainForm::HelpAbout1Execute(TObject *Sender)
  45. {
  46. AboutBox->ShowModal();
  47. }
  48. //---------------------------------------------------------------------------
  50. void __fastcall TMainForm::FileExit1Execute(TObject *Sender)
  51. {
  52. Close();
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TMainForm::Button1Click(TObject *Sender)
  56. {
  57.   TForm1 *wnd;
  58.   wnd = new TForm1(Application);
  59.   wnd->Caption="我的子窗口";
  60. }
  61. //---------------------------------------------------------------------------
  62. void __fastcall TMainForm::Button2Click(TObject *Sender)
  63. {
  64.   for(int i = 0; i < MDIChildCount; i++)
  65.     ShowMessage(MDIChildren[i]->Caption);
  66. }
  67. //---------------------------------------------------------------------------
  69. void __fastcall TMainForm::Button3Click(TObject *Sender)
  70. {
  71.   TForm1 *wnd;
  72.   for(int i = 0; i < MDIChildCount; i++)
  73.     MDIChildren[i]->Close();
  74.   wnd = new TForm1(Application);
  75.   wnd->Caption="我的子窗口";
  76. }
  77. //---------------------------------------------------------------------------