unit2.cpp

有视频

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

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmBar *FrmBar;
//---------------------------------------------------------------------------
__fastcall TFrmBar::TFrmBar(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFrmBar::FormKeyPress(TObject *Sender, char &Key)
{
  if(Key==27)Close();
}
//---------------------------------------------------------------------------
void __fastcall TFrmBar::PBarOpen(int nn)
{
  ProgressBar1->Max=nn;
  ProgressBar1->Position=0;
  ProgressBar1->Visible=True;
  Show();
}
//---------------------------------------------------------------------------
void __fastcall TFrmBar::PBarGo(void)
{
  ProgressBar1->StepIt();
}
//---------------------------------------------------------------------------
void __fastcall TFrmBar::PBarClose(void)
{
  ProgressBar1->Visible=False;
  Close();
}
//---------------------------------------------------------------------------