u6_3_1.cpp

《C++ Builder 5程序设计——基础教学篇》程序源代码2.

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

#include "u6_3_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf6_3_1 *f6_3_1;
//---------------------------------------------------------------------------
__fastcall Tf6_3_1::Tf6_3_1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tf6_3_1::btnRunClick(TObject *Sender)
{
   int i;
   imgCar->Left=300;
   imgCar->Top=50;
   for (i=300;i>1;i=i-1)
    {
      imgCar->Left=i;
      Refresh();
    }
}
//---------------------------------------------------------------------------
void __fastcall Tf6_3_1::btnEndClick(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------

void __fastcall Tf6_3_1::FormActivate(TObject *Sender)
{
   imgCar->Stretch=True;
   imgCar->Picture->LoadFromFile("d:\\ch06\\c6_3_1\\carL.bmp");
}
//---------------------------------------------------------------------------