udistance.cpp

测试你们之间的关系 测试你们之间的关系 测试你们之间的关系

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

#include <vcl.h>
#pragma hdrstop

#include "UDistance.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFDistance *FDistance;
short index,czh;
//---------------------------------------------------------------------------
__fastcall TFDistance::TFDistance(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFDistance::Image1Click(TObject *Sender)
{
 // ImageList->GetBitmap(0,Image1->Picture->Bitmap);
  if(czh==0)
     czh=1;
  else
  {
   
  }
  Label1->Visible=false;

}
//---------------------------------------------------------------------------
void __fastcall TFDistance::Timer1Timer(TObject *Sender)
{
 if(czh==1&&index<=19)
 {
  Image1->Picture=NULL;
  ImageList->GetBitmap(index,Image1->Picture->Bitmap);
   index++;
 }
 else
 {
  Label1->Visible=true;
  index=0;
  czh=0;
 }

     
}
//---------------------------------------------------------------------------
void __fastcall TFDistance::FormShow(TObject *Sender)
{
 index=1;        
}
//---------------------------------------------------------------------------