createfile.~cpp

文件管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "CreateFile.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm3::CancelCClick(TObject *Sender)
{
Form3->Tag=0;
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::CreateBnClick(TObject *Sender)
{
if(EditName->Text==""){ShowMessage("文件名不能为空");return;}
if(EditLength->Text==""){ShowMessage("未指定文件大小");return;}
Form3->Tag=1;
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::NumOnly(TObject *Sender, char &Key)
{
if(!(Key>='0'&&Key<='9'||Key==0x8)){ //限制编辑框输入0～9和退格键
Key=0x0;
MessageBeep(-1);
}        
}
//---------------------------------------------------------------------------