Как установить фокус на форму? Стандартное Form1.SetFocus; почему-то не работает.
Поясню: создаём новый проект и пишем простой обработчик события Form1.OnKeyDown (например такой: if Key=VK_ESCAPE then close;). После запуска приложения можно убедиться, что кнопка работает. Теперь поместим на форму компонент, скажем RadioButton из Standart. Теперь запустим программу и ткнём в компонент мышкой. Ну и всё: нажатие Esc не обрабатывается и снять выделение с RadioButton1 (есть мысль, что не обрабатывается именно поэтому) никак не получается
Я понимаю, что можно обработчиком события RadioButton1.OnKeyDown сделать процедуру FormKeyDown, но это не решает вопрос с курсорными клавишами.
И ещё: мне нужно поместить фокус именно на окно (на форму), а не на компонент на ней. В этом-то и проблема! Процедурой SetFocus я могу принудительно установить фокус на любой компонент, а на само окно - не могу

Народ, помогите пожалуйста!
Заранее спасибо.

Установи свойство KeyPreview формы в True.

Спасибо, помогло. А как быть с курсорными клавишами? Есть возможность перехватывать их нажатие?

Цитата(Sog @ 11.12.2005, 09:28)

Есть возможность перехватывать их нажатие?

Конэчно!
VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN

Цитата

Цитата (Sog @ 11.12.2005, 09:28) Есть возможность перехватывать их нажатие? Конэчно! VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN

Неа не работает... Если фокус, например, у кнопки

Это сообщение отредактировал(а) darkart - 11.12.2005, 16:36

Ак омпонента типа TApplication не решит проблему ???

Что за компонента и где находится? Я честно говоря не в курсе.

Цитата(darkart @ 11.12.2005, 16:36)

Неа не работает... Если фокус, например, у кнопки

Ну тогда нада кинуть на форму таймер и написать вот такой код :

Код

IF GetAsyncKeyState (VK_DOWN)<>0 Then Close;

Я так понимаю Marriage писал о TApplicationEvents, в Delphi7 находится на вкладке Additional.

to Slayers: да, с таймером действительно работает, спасибо. А как отследить комбинацию скажем Shift+Down?

to darkart: Спасибо, нашёл.

to Marriage: А как эта компонента может мне помочь?

К примеру так:

Код

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); begin   if msg.message=WM_KEYDOWN then     if msg.wParam=VK_LEFT then showmessage('ok'); end;