Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 3 октября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Нужно чтобы клавиши shortcut пунктов действовали только в этой форме, а не в модальных окнах.

Знакомая проблема. Лечится так:


 function WindowHook(var Message: TMessage): Boolean;
 ...
 
 procedure.FormCreate(Sender: TObject);
 begin
   // MainForm
   Application.HookMainWindow(WindowHook);
 end;
 
 function.WindowHook;
 begin
   Result := False;
 
   with Message do
     case Msg of
       CM_APPKEYDOWN, CM_APPSYSCOMMAND: Msg := WM_NULL;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS