//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
static int sx=5;
static int sy=5;
static int ax=5;
static int by=5;
int x,y,a,b;
x=RadioButton1->Left;
y=RadioButton1->Top;
a=Shape1->Left;
b=Shape1->Top;
if(y<=0)
sy=-sy;
if(b<=0)
by=-by;
if(y+RadioButton1->Height>=Form1->ClientRect.Bottom)
sy=-sy;
if(b+Shape1->Height>=Form1->ClientRect.Bottom)
by=-by;
if(x<=0)
sx=-sx;
if(a<=0)
ax=-ax;
if(x+RadioButton1->Width>=Form1->ClientRect.right)
sx=-sx;
if(a+Shape1->Width>=Form1->ClientRect.right)
ax=-ax;
 
if(RadioButton1->Left+RadioButton1->Width>Shape1->Left && RadioButton1->Left+RadioButton1->Width<Shape1->Left+Shape1->Width && RadioButton1->Top+RadioButton1->Height>Shape1->Top && RadioButton1->Top+RadioButton1->Height<Shape1->Top+Shape1->Height)
{ax=-ax;   sx=-sx; }
 
if( RadioButton1->Top+RadioButton1->Height>Shape1->Top&&RadioButton1->Top+RadioButton1->Height<Shape1->Top+Shape1->Height && RadioButton1->Left+RadioButton1->Width>Shape1->Left && RadioButton1->Left+RadioButton1->Width<Shape1->Left+Shape1->Width)
{by=-by;   sy=-sy; }
 
x+=sx;
y+=sy;
a+=ax;
b+=by;
RadioButton1->Left=x;
RadioButton1->Top=y;
Shape1->Left=a;
Shape1->Top=b;
}
//---------------------------------------------------------------------------