Membuat Animasi dengan C++ Builder

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

#include
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::T1Timer(TObject *Sender)
{
//---------------Left-------------------------------------------------------
LL->Left = LL->Left-1;
if (LL->Left < 0) LL->Left = P1->Width;
//---------------Right-------------------------------------------------------
LR->Left = LR->Left+1;
if (LR->Left > P1->Width)
LR->Left = 0;
//---------------Bottom-------------------------------------------------------
LB->Top = LB->Top-1;
if (LB->Top < 0) LB->Top = P1->Height;
//---------------Top-------------------------------------------------------
LT->Top = LT->Top+1;
if (LT->Top > P1->Height)
LT->Top = 0;
}
//---------------------------------------------------------------------------