Глобальные клавиши Fn для всей формы

← →
Vladimyr (2004-07-09 17:07) [0]

Хочется, чтобы в программе совершались некие действия при нажатии клавиш F1, F2 и т.д. независимо от того, какой элемент принял фокус.
В VCL это удавалось сделать обработкой Form1.OnKeyDown (OnKeyPress здесь не подходит, так как не реагирует на функциональные клавиши).
Правда, это работало только тогда, когда в основной VCL-форме установлено свойство KeyPreview := true.
Видимо, в KOL-форме тоже есть что-то подобное, так как Form1.OnKeyDown не срабатывает ни на одну клавишу.
Подозреваю, что ответ простой, но найти его в форуме я не смог :(

← →
Gandalf © (2004-07-09 23:16) [1]

Про это не раз говорили и тут и даже в FAQ упоминалось вскольз.

function TForm1.KOLApplet1Message(var Msg: tagMSG; var Rslt: Integer): Boolean; var C : Char; begin Result := False; case Msg.message of WM_KEYDOWN, WM_SYSKEYDOWN: if assigned( Form.OnKeyDown ) then Form.OnKeyDown( Form, Msg.wParam, GetShiftState ); WM_KEYUP, WM_SYSKEYUP: if assigned( Form.OnKeyUp ) then Form.OnKeyUp( Form, Msg.wParam, GetShiftState ); WM_CHAR, WM_SYSCHAR: if assigned( Form.OnChar ) then begin C := Char( Msg.wParam ); Form.OnChar( Form, C, GetShiftState ); Msg.wParam := Integer( C ); end; end; end;

← →
Vladimyr (2004-07-10 00:47) [2]

Спасибо за ответ, это работает!
Но тогда как же некоторые контролы всё же реагируют на клавиатуру и мышь без такого обработчика?!..

← →
Gandalf © (2004-07-12 18:37) [3]

Не понял вопроса

Разобрался, спасибо :)

Глобальные клавиши Fn для всей формы Найти похожие ветки