Курсовая работа / курсач(1 версия) / Unit1

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

#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::BitBtn1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
int a=BitBtn1->Top, b=BitBtn1->Left;
if (a<=650)  {
if (b>719 || b<=664 || a>=460 || a<=14)//Label1
if (b<=55 || b>719 || a>=85 || a<14)//Label2
if (b<=45 || b>120 || a>=620 || a<=95)//Label3

if (Key==VK_DOWN) {BitBtn1->Top=a+10;} }// else{ BitBtn1->Top=650;}
if (a>0)
if (b>719 || b<=664 || a>=460 || a<=24)//Label1
if (b<=55 || b>719 || a>=85 || a<=14)//Label2
if (b<=45 || b>120 || a>=620 || a<=95)//Label3
if (Key==VK_UP) {BitBtn1->Top=a-10;}
if (b>0)
if (b<704 || b>729 || a>=454 || a<=24)//Label1
if (b<55 || b>719 || a>=69 || a<=64)//Label2
if (b<=45 || b>120 || a>=620 || a<=95)//Label3
if (Key==VK_LEFT)  {BitBtn1->Left=b-10;}
if (b<=750)
{
if (b>679 || b<=664 || a>=454 || a<=24)//Label1
if (b<=55 || b>719 || a>=85 || a<=14)//Label2
if (b<=45 || b>110 || a>=620 || a<=95)//Label3
if (Key==VK_RIGHT)  {BitBtn1->Left=b+10;} }// else {BitBtn1->Left=750;}
}



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