unit15.cpp

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

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

#include "Unit15.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormTest_Off *FormTest_Off;
//---------------------------------------------------------------------------
__fastcall TFormTest_Off::TFormTest_Off(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormTest_Off::FormCreate(TObject *Sender)
{
 bOK=false;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormTest_Off::Button1Click(TObject *Sender)
{
 bOK=true;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormTest_Off::Button2Click(TObject *Sender)
{
 bOK=false;
 Close();
}
//---------------------------------------------------------------------------