| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Vladimyr ©   (2004-07-09 17:07:00) 

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

---

Vladimyr   (2004-07-12 20:24:00) [1]

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

---

Gandalf   (2004-07-12 18:37:00) [2]

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

---

Vladimyr   (2004-07-10 00:47:00) [3]

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

---

Gandalf   (2004-07-09 23:16:00) [4]

Про это не раз говорили и тут и даже в 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;


---

Наверх