назначение клавишы для визарда/эксперта

← →
ther © (2010-06-24 10:47) [0]

драсте...подскажите как назначить сочетании клавиш..есть достаточно мануалов по экспертам но они для старых версий и в delphi 2010 не работают..с горем по полам нарыл код..он создает меню..но...по нажатию ctrl+1 ничего не происходит если активно окно кода...но если активно любое другое окно то работает...как можно разрулить?
NTAServices:=(BorlandIDEServices as inTAServices); MainMenu := NTAServices. MainMenu; ActionList := NTAServices.ActionList; if assigned(MainMenu) and assigned(ActionList) and not assigned(MainMenu.Items.Find(cCaption)) then begin FAction := TAction.Create(nil); FAction.ActionList := NTAServices.ActionList; FAction.Caption := "test"; FAction.Category := "Tools"; FAction.Hint := "teeest"; FAction.ShortCut:=ShortCut(Word("1"), [ssCtrl]); FAction.OnExecute:=OnMenuClick; FMenuItem.Action:=FAction; NTAServices.AddActionMenu("ToolsOptionsItem", FAction, FMenuItem, True);

← →
Игорь Шевченко © (2010-06-24 11:07) [1]

> с горем по полам нарыл

Это пять

← →
Leonid Troyanovsky © (2010-06-24 11:11) [2]

> ther © (24.06.10 10:47)

> .он создает меню..но...по нажатию ctrl+1

Выбери другое сочетание, это конфликтует с Goto Bookmarks.

--
Regards, LVT.

← →
ther © (2010-06-24 11:17) [3]

другие тоже не работают....он почему то не реагирует когда фокус находится на коде

← →
Leonid Troyanovsky © (2010-06-24 11:27) [4]

> ther © (24.06.10 11:17) [3]

> другие тоже не работают

Например, какие?

--
Regards, LVT.

← →
ther © (2010-06-24 11:31) [5]

все которые я бы не подставлял
Ctrl+Shift+0,Ctrl+Shift+K и тд...

ох ты ж черт...неудобно то как... Ctrl+Shift+q..сработал...видимо действительно конфликты были...просто перепробовал туеву кучу комбинаций и отчаялся...звиняйте

> ther (24.06.2010 10:47:00) [0]

Зачем по полам рыть? Неудобно же.

назначение клавишы для визарда/эксперта Найти похожие ветки