unit8.cpp

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

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

#include "Unit8.h"
#include "IsNumber.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInputFengZhi *InputFengZhi;
//---------------------------------------------------------------------------
__fastcall TInputFengZhi::TInputFengZhi(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TInputFengZhi::Button1Click(TObject *Sender)
{
 if(Edit1->Text.IsEmpty()) return;
 fVal=StrToFloat(Edit1->Text);
 ifOK=true;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TInputFengZhi::Button2Click(TObject *Sender)
{
 ifOK=false;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TInputFengZhi::FormShow(TObject *Sender)
{
 ifOK=false;        
}
//---------------------------------------------------------------------------

void __fastcall TInputFengZhi::EditChange(TObject *Sender)
{
 TEdit *tEdit=(TEdit *)Sender;
 tEdit->Text=IsNumber(tEdit->Text);        
}
//---------------------------------------------------------------------------