unit5.~cpp

来自「员工管理系统 功能还算齐全,主要用于一般的小型公司」· ~CPP 代码 · 共 33 行

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

#include "Unit5.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TAboutBox *AboutBox;
int closetime=9;
//--------------------------------------------------------------------- 
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------

void __fastcall TAboutBox::Timer1Timer(TObject *Sender)
{
if(closetime==0){Timer1->Enabled=false;Close();}
else closetime--;
OKButton->Caption ="确定("+IntToStr(closetime)+")";
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::FormShow(TObject *Sender)
{
closetime=10;
OKButton->Caption ="确定(9)";
Timer1->Enabled=true;
}
//---------------------------------------------------------------------------