![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
назначение клавишы для визарда/эксперта
ther © (2010-06-24 10:47:00)драсте...подскажите как назначить сочетании клавиш..есть достаточно мануалов по экспертам но они для старых версий и в 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);
Anatoly Podgoretsky (2010-06-24 14:16:00) [1]> ther (24.06.2010 10:47:00) [0]
Зачем по полам рыть? Неудобно же.
ther (2010-06-24 11:35:00) [2]ох ты ж черт...неудобно то как... Ctrl+Shift+q..сработал...видимо действительно конфликты были...просто перепробовал туеву кучу комбинаций и отчаялся...звиняйте
ther (2010-06-24 11:31:00) [3]все которые я бы не подставлял
Ctrl+Shift+0,Ctrl+Shift+K и тд...
Leonid Troyanovsky (2010-06-24 11:27:00) [4]
> ther © (24.06.10 11:17) [3]
> другие тоже не работают
Например, какие?
--
Regards, LVT.
ther (2010-06-24 11:17:00) [5]другие тоже не работают....он почему то не реагирует когда фокус находится на коде
Leonid Troyanovsky (2010-06-24 11:11:00) [6]
> ther © (24.06.10 10:47)
> .он создает меню..но...по нажатию ctrl+1
Выбери другое сочетание, это конфликтует с Goto Bookmarks.
--
Regards, LVT.
Игорь Шевченко (2010-06-24 11:07:00) [7]
> с горем по полам нарыл
Это пять