Почему не обрабатываются Shortcut динамических Action?

← →
Aleksandr © (2003-06-20 12:54) [0]

Использую Action Manager. Несколько экшнов у меня грузятся из таблицы, им присваиваются общий OnUpdate, OnExecute, и каждому свои ShortCutы оттуда же. При работе программы все эти объекты в меню отображаются, и напротив них, как и положено, указываются сочетания клавиш. Но вот когда нажимаешь эти сочетания, ничего не происходит. Проверки ради я попытался обработать ActionManager.OnExecute, Application.OnActionExecute и, в конце концов - OnKeyDown главной формы! - и нигде события не происходит! Мало того, главная форма (при включенном KeyPreview), вообще никакие клавиши не ловит. Почему такое может быть и как корректно добавить ShortCuts?

Код добавления: A:=TAction.Create(nil); A.Category:=h_Forums; A.Caption:=T.FieldByName("Name").AsString; A.Tag:=T.FieldByName("ID").AsInteger; A.OnUpdate:=ForumActionUpdate; A.OnExecute:=ForumActionExecute; C:=ActionManager.AddAction(A,MenuBar.ActionClient.Items[4].Items[0],false); C.Tag:=A.Tag; A.ShortCut:=TextToShortCut(T.FieldByName("ShortCut").AsString);

Или, может, так не добавишь, и надо хорошо обработать Application.OnShortCut? Только я там так и не понял, как из этого TWMKey выловить, что была нажата Ctrl и исчто клавиша... В смысле, с клавишей понятно - Chr(TWMKey.Charcode), а вот с Ctrl...

← →
Aleksandr © (2003-06-20 16:18) [1]

Млин, неужели у меня руки такие кривые, что никто с этим и не сталкивался? :(

Почему не обрабатываются Shortcut динамических Action? Найти похожие ветки