Klawisze Virtual Key

Question

Witam. Mam taki problem, który polega na tym, że okodowałem sobie pewien element, aby się nim poruszać. Użyłem dokładnie takich samych lini kodu jak pan Mirosław z odcinka o Timerach. Jednak gdy wciskam przycisk na klawiaturze obiekt nie porusza się. Cóż mam robić? Korzystam z Rad Studio 10.1 Architect.

Comments

a pokazesz kod?

---

Z timerami jest wszystko w porządku bo uruchomiłem jeden i obiek się poruszał, lecz nie chce się uruchomić po wciśnięciu klawiszy

---

nie tak, pokaz kod nie zdjecia

---

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

#include <fmx.h>
#pragma hdrstop

#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TLevel1 *Level1;
//---------------------------------------------------------------------------
__fastcall TLevel1::TLevel1(TComponent* Owner)
    : TFrame(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TLevel1::Timer1Timer(TObject *Sender)
{
    k->Position->X -= 5;

 

---

Tutaj masz cał tamto jest złe

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

 

#include <fmx.h>

#pragma hdrstop

 

#include "Unit6.h"

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

#pragma package(smart_init)

#pragma resource "*.fmx"

TLevel1 *Level1;

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

__fastcall TLevel1::TLevel1(TComponent* Owner)

    : TFrame(Owner)

{

}

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

void __fastcall TLevel1::Timer1Timer(TObject *Sender)

{

    k->Position->X -= 5;

}

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

void __fastcall TLevel1::Timer2Timer(TObject *Sender)

{

    k->Position->Y -= 5;

}

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

void __fastcall TLevel1::Timer3Timer(TObject *Sender)

{

    k->Position->X += 5;

}

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

void __fastcall TLevel1::Timer4Timer(TObject *Sender)

{

    k->Position->Y += 5;

}

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

void __fastcall TLevel1::FrameKeyDown(TObject *Sender, WORD &Key, System::WideChar &KeyChar,

         TShiftState Shift)

{

    if (Key == VK_LEFT)  Timer1->Enabled=True;

    if (Key == VK_UP)    Timer2->Enabled=True;

    if (Key == VK_RIGHT) Timer1->Enabled=True;

    if (Key == VK_DOWN)  Timer1->Enabled=True;

}

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