unit22.cpp

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit22.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgSetNDUnit *DlgSetNDUnit;
//---------------------------------------------------------------------------
__fastcall TDlgSetNDUnit::TDlgSetNDUnit(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TDlgSetNDUnit::ShowUnitIndex(int index)
{
    ComboBox1->ItemIndex = index;
    ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TDlgSetNDUnit::btnOKClick(TObject *Sender)
{
   bOK = true;
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TDlgSetNDUnit::btnCancelClick(TObject *Sender)
{
   bOK = false;
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TDlgSetNDUnit::FormShow(TObject *Sender)
{
    bOK = false;
}
//---------------------------------------------------------------------------