fileedit.cpp

文件管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "FileEdit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::SaveBnClick(TObject *Sender)
{
if(Editlen->Text==""){ShowMessage("编辑大小不能为空！");return;}
Form7->Tag=1;
Close();
}
//---------------------------------------------------------------------------

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