gusucode.com > Delphi刻录软件源码程序 > Delphi刻录软件源码程序/ym_MagicCDDVDBurnerVCL-hicode/Examples/FullDemoC/ImportSession.cpp
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "ImportSession.h" #include "unit1.h" #include "TreeView.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TfrmSession *frmSession; //--------------------------------------------------------------------------- __fastcall TfrmSession::TfrmSession(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TfrmSession::SpeedButton1Click(TObject *Sender) { if (lb->ItemIndex == -1 ) { ShowMessage("Select session from list"); return; } if ( lb->Items->Count > 1 ) { if (lb->ItemIndex+1 >= lb->Items->Count) return; Form1->mcdb->ClearAll(100000, 65000); Form1->mcdb->ImportSession(lb->ItemIndex+1, Form1->mcdb->RootDir); frmTree = new TfrmTree(this); frmTree->ShowModal(); } } //---------------------------------------------------------------------------