unit14.cpp

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

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

#include "Unit14.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormTest_On *FormTest_On;
//---------------------------------------------------------------------------
__fastcall TFormTest_On::TFormTest_On(TComponent* Owner)
        : TForm(Owner)
{
  CtrlOK=false;
}
//---------------------------------------------------------------------------
void __fastcall TFormTest_On::FormCreate(TObject *Sender)
{
 ifOK=false;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormTest_On::Button1Click(TObject *Sender)
{
 ifOK=true;
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormTest_On::Button2Click(TObject *Sender)
{
 ifOK=false;
 Close();
}
//---------------------------------------------------------------------------



void __fastcall TFormTest_On::Button2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  CtrlOK=true;
}
//---------------------------------------------------------------------------

void __fastcall TFormTest_On::Button2KeyPress(TObject *Sender, char &Key)
{
  Close();//Button2->Caption="dd";
}
//---------------------------------------------------------------------------