Category

Development Platform
Home > E-Books > Delphi-C++Builder > View Code
MainUnit.cpp
Package: c++builder6编程实例.ZIP　[view]
Upload User: lulishicai
Upload Date: 2010-03-01
Package Size: 13202k
Code Size: 1k
Category:

Delphi-C++Builder

Development Platform:

C++ Builder

MainUnit.cpp：Code Content
  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. //---------------------------------------------------------------------------