Delphi

Вопрос

Delphi 6. Окно моей программы при работе не получает фокуса. Как отловить и обработать в ней событие нажатия комбинации клавиш на клавиатуре (например Ctrl+Q). Если можно пример.

Ответ

Это далеко не лучший пример, но все же:

if GetAsyncKeyState(VK_CONTROL) <> 0 then

if GetAsyncKeyState(13) <> 0 then

ShowMessage('Вы нажали Ctrl-Enter');

Это все надо повесить на Timer

Из конференции Expert_FAQ