| Предыдущая тема :: Следующая тема   | 
	
	
	
		| Автор | 
		Сообщение | 
	
	
		mike
 
 
  Зарегистрирован: 08.07.2008 Сообщения: 17 Откуда: Северодвинск
  | 
		
			
				 Добавлено: Чт 11 Сен 2008 12:51    Заголовок сообщения: Горячие клавиши к командам в меню программы | 
				     | 
			 
			
				
  | 
			 
			
				| Уважаемые разработчики! Подскажите, пожалуйста, как можно доназначить горячие клавиши к тем командам в меню программы, которые их еще не имеют (если это возможно)? | 
			 
		  | 
	
	
		| Вернуться к началу | 
		 | 
	
	
		  | 
	
	
		Расуль
 
  
  Зарегистрирован: 05.09.2008 Сообщения: 5 Откуда: Уфа ЦСИ. Интегро
  | 
		
			
				 Добавлено: Пт 12 Сен 2008 09:48    Заголовок сообщения:  | 
				     | 
			 
			
				
  | 
			 
			
				Вообще стандартных средств для установки горячих клавиш к командам в меню, не существует. Но данную задачу можно решить двумя способами. 
 
 
1) Написать модуль который будет устанавливать горячую клавишу для данного пункта меню.
 
 
2) Написать скрипт, который при запуске будет устанавливать горячую клавишу. В пункте меню Файл->Програмные модули, зайдите в редактор. Создайте событие "при запуске модуля".
 
В обработчике события пишите следующий код.
 
 	  | Код: | 	 		  
 
'Вызывается сразу после запуска программного модуля
 
sub Module_StartComplete()   
 
  Application.MainWindow.Actions("ActionsAnalysisNewObjectSet").Shortcut = 123
 
end sub
 
 | 	  
 
 
Данный пример илюстрирует установку на пункт меню "Анализ->Создать набор объектов" горячей клавиши 'F12'. _________________ Расуль | 
			 
		  | 
	
	
		| Вернуться к началу | 
		 | 
	
	
		  | 
	
	
		mike
 
 
  Зарегистрирован: 08.07.2008 Сообщения: 17 Откуда: Северодвинск
  | 
		
			
				 Добавлено: Пн 15 Сен 2008 10:44    Заголовок сообщения:  | 
				     | 
			 
			
				
  | 
			 
			
				Спасибо!!! То что надо, буду использовать. 
 
А то уже столько накопилось команд, которые только через меню и много раз на дню... | 
			 
		  | 
	
	
		| Вернуться к началу | 
		 | 
	
	
		  | 
	
	
		 |