Скачать: CL | DM;

Почему не обрабатываются 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c