unit10.cpp

来自「光学仪器的控制系统 用于教学和科研的仪器」· C++ 代码 · 共 50 行

//---------------------------------------------------------------------------
#pragma hdrstop
#include <vcl.h>

#include "Unit10.h"
#include "IsNumber.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormJiaoZheng *FormJiaoZheng;
//---------------------------------------------------------------------------
__fastcall TFormJiaoZheng::TFormJiaoZheng(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormJiaoZheng::ButtonOKClick(TObject *Sender)
{// 确定按纽
 if(Edit2->Text.IsEmpty()) return;
 if(Edit3->Text.IsEmpty()) return;
 bOK=true;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormJiaoZheng::ButtonCancelClick(TObject *Sender)
{// 取消按纽
 bOK=false;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormJiaoZheng::FormShow(TObject *Sender)
{//
 bOK=false;
}
//---------------------------------------------------------------------------
void __fastcall TFormJiaoZheng::Edit2Change(TObject *Sender)
{
 TEdit *tEdit2=(TEdit *)Sender;
 tEdit2->Text=IsNumber(tEdit2->Text);
}
//---------------------------------------------------------------------------

void __fastcall TFormJiaoZheng::Edit3Change(TObject *Sender)
{
 TEdit *tEdit3=(TEdit *)Sender;
 tEdit3->Text=IsNumber(tEdit3->Text);
}
//---------------------------------------------------------------------------