Управление VCL формой с клавиатуры

[octoplar]

В общем так:
В процессе изучения решил написать простенькую игру на С++ Builder 2007 и выбор пал на тетрис. Написан он в VCL форме, и даже работает, но управляется кнопками типа TButton. Решил сделать управление с клавиатуры(например W A S D), но столкнулся с проблемой - так и не смог найти решение=(

Теперь, собственно, вопрос:
Как обработать нажатие клавиш в VCL?
Я остановился на этапе того, что функция

void __fastcall  TForm3::OnKeyPress(TObject *Sender, char &Key)
{
  switch (Key).........
}

ничего не делает. Возможно, это связано с тем, что в фокусе всегда находится 1 из элементов самой формы(например TButton).

Помогите(желательно ссылка на исходник или код любой рабочей функции, где, например, при нажатии клавиши "f" вызывается функция My_function(char key) ).

[Stilet]

ничего не делает

Для формы поставь KeyPreview = True;

[octoplar]

Сообщение от Stilet

Для формы поставь KeyPreview = True;

Не помогло. На данный момент вид такой:

void __fastcall TForm3::FormCreate(TObject *Sender)
{
KeyPreview = true;
..............
}

void __fastcall  TForm3::OnKeyPress(TObject *Sender, char &Key)
{
  Memo1->Lines->Add("test");
..................
}

По идее при нажатии любой клавиши в Memo1 должна добавляться строка "test", но этого не происходит.

[octoplar]

Похоже я допер, где косяк:
Я руками добавлял в Unit3.h void __fastcall OnKeyPress(TObject *Sender, char &Key);

попробовал то же самое с кнопками Button1 и Button2:

void __fastcall TForm7::Button1Click(TObject *Sender)
{
 Memo1->Lines->Add("test");

}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
 Memo1->Lines->Add("test");
}

Функцию Button1Click Написал руками, а функция Button2Click была создана автоматически при двойном клике по Button2 на дизайне формы.
В итоге первая функция, внесенная руками, не работает.

Теперь вопрос: как грамотно вызвать OnKeyPress из дизайна формы, чтобы оно работало, или же как грамотно самому прописывать функции, чтобы они работали?

[octoplar]

Все, разобрался.
Чтобы все работало надо:

1. Установить свойство формы KeyPreview = true;

void __fastcall TForm3::FormCreate(TObject *Sender)
{
KeyPreview = true;
}

2. В Object inspector (он в нижнем левом углу) во вкладке Events найти нужное событие и разрешить его (в данном случае OnKeyPress). Дальше функцию OnKeyPress вносить можно вручную в Unit3.h

3. В Unit3.cpp пишем саму функцию

void __fastcall  TForm3::OnKeyPress(TObject *Sender, char &Key)
{
Memo1->Lines->Add("test");
}

Тему можно закрывать, всем спасибо.

[xxbesoxx]

Помогите(желательно ссылка на исходник или код любой рабочей функции, где, например, при нажатии клавиши "f" вызывается функция My_function(char key) ).

1) Смотрим код клавиша http://articles.org.ru/cn/showdetail.php?cid=8988
2) из событии OnShortCut пишу

void __fastcall TForm1::FormShortCut(TWMKey &Msg, bool &Handled)
{
 if (Msg.CharCode== 70 ) //  F   70
	{
	 ShowMessage("Вы нажали клавишу F ");
	  Handled = true;
	}
	else
	 if (Msg.CharCode== 71 ) //  G   71
	{
	 ShowMessage("Вы нажали клавишу  G ");
	  Handled = true;
	}
	 else
	 if (Msg.CharCode== 72 ) //  H  72
	{
	 ShowMessage("Вы нажали клавишу H ");
	  Handled = true;
	}
 }