🚀 go-pugleaf

Arent you missing Someting maybe {}, (maybe not) anyway

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   Form1->Color = clRed;
   if (Key == VK_LEFT) {Form1->Color = clWhite; direction = 3;}
   if (Key == VK_RIGHT) {Form1->Color = clBlue; direction = 1;}
   if (Key == VK_UP) {Form1->Color = clGreen; direction = 0;}
   if (Key == VK_DOWN) {Form1->Color = clYellow; direction = 2;}
}

-Dumboo

"Nicholas Gessler" <gessler@ucla.edu> wrote in message
news:3ed17b8f@newsgroups.borland.com...
> I am puzzled...
> I have used KeyDown VK code in other applications and they all work:
>
> void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
>       TShiftState Shift)
> {
>    Form1->Color = clRed;
>    if (Key == VK_LEFT) Form1->Color = clWhite; direction = 3;
>    if (Key == VK_RIGHT) Form1->Color = clBlue; direction = 1;
>    if (Key == VK_UP) Form1->Color = clGreen; direction = 0;
>    if (Key == VK_DOWN) Form1->Color = clYellow; direction = 2;
> }
>
> But now, for some reason that escapes me, KeyDown is detected (since the
> form turns Red), but the arrow keys just don't do anything...  I am
stumped!
>
> Nick
>
>