unit5.cpp

光学仪器的控制系统 用于教学和科研的仪器

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

#include "Unit5.h"
#include "Unit1.h"
#include "IsNumber.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInputBoChang *InputBoChang;
//---------------------------------------------------------------------------
__fastcall TInputBoChang::TInputBoChang(TComponent* Owner)
        : TForm(Owner)
{
 ifOk=false;
}
//---------------------------------------------------------------------------
void __fastcall TInputBoChang::Button1Click(TObject *Sender)
{// 确定按纽
 if(Edit1->Text.IsEmpty()) return;

 if(StrToFloat(Edit1->Text)<Form1->wns0||StrToFloat(Edit1->Text)>Form1->wne0)
   Application->MessageBox("输入波长超出200-900nm范围！", "输入错误",
                MB_OK|MB_ICONWARNING);
 else
 {
  BoChang=StrToFloat(Edit1->Text);
  ifOk=true;
  Close();
 }
}
//---------------------------------------------------------------------------
void __fastcall TInputBoChang::Button2Click(TObject *Sender)
{// 取消按纽
 ifOk=false;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TInputBoChang::FormShow(TObject *Sender)
{//
 ifOk=false;
 Edit1->SetFocus();
}
//---------------------------------------------------------------------------

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