createdir.cpp

文件管理系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CreateDir.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::CanCreClick(TObject *Sender)
{
Form4->Tag=0;
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::OKCreClick(TObject *Sender)
{
if(EditName->Text==""){ShowMessage("文件夹名不能为空");return;}
Form4->Tag=1;
Close();
}
//---------------------------------------------------------------------------