폼에 두개의 버턴 Button1, Button2를 놓은 상태에서 폼의 KeyPreview속성을 true하고

다음과 같이 코딩하였지만 Up이나 Down키를 누를때 버턴의 포커스만 이동하고

메시지를 출력하지 않는데 어떻게 해야되는지 아시는 분 계시면 꼭 가르쳐 주십시오..


void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key == VK_DOWN) ShowMessage("Down Key Press");
}