unit9.cpp

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

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

#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormDingDian *FormDingDian;
//---------------------------------------------------------------------------
__fastcall TFormDingDian::TFormDingDian(TComponent* Owner)
        : TForm(Owner)
{
 ShowPage=1;
}
//---------------------------------------------------------------------------

void __fastcall TFormDingDian::FormShow(TObject *Sender)
{
 if(ShowPage!=1)//根据需要显示PageControl1的对应页
        FormDingDian->PageControl1->ActivePage=TabSheet2;
 else   FormDingDian->PageControl1->ActivePage=TabSheet1;
 bIfClose=false;
}
//---------------------------------------------------------------------------
void __fastcall TFormDingDian::FormClose(TObject *Sender,
      TCloseAction &Action)
{
 bIfClose=true;        
}
//---------------------------------------------------------------------------
void __fastcall TFormDingDian::Button1Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------