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

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
MainUnit.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：1k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

MainUnit.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "MainUnit.h"
  6. #include "CDPlay.h"
  7. #include "MidiPlay.h"
  8. #include "MpgPlay.h"
  9. #include "WavePlay.h"
  10. //---------------------------------------------------------------------------
  11. #pragma package(smart_init)
  12. #pragma resource "*.dfm"
  13. TMainForm *MainForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TMainForm::TMainForm(TComponent* Owner)
  16.         : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TMainForm::MpgPlayClick(TObject *Sender)
  21. {
  22.     MpgForm->ShowModal();
  23.     //显示影碟播放窗口
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TMainForm::WavPlayClick(TObject *Sender)
  27. {
  28.     WaveForm->ShowModal();
  29.     //显示声音播放窗口
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TMainForm::MidiPlayClick(TObject *Sender)
  33. {
  34.     MidiForm->ShowModal();
  35.     //显示音乐播放窗口
  36. }
  37. //---------------------------------------------------------------------------
  38. void __fastcall TMainForm::CDPlayClick(TObject *Sender)
  39. {
  40.     CDForm->ShowModal();
  41.     //显示CD播放窗口
  42. }
  43. //---------------------------------------------------------------------------