Запрещение и разрешение команд
В качестве значения константы-команды можно использовать любое число в
диапазоне от О до 65535, однако следует учесть, что диапазоны 0...99 и 2S6...999
Turbo Vision резервирует для стандартных команд и их не следует использовать для
определения команд пользователя. Два диапазона зарезервированных команд выбраны
потому, что команды с кодами 0...255 можно временно запретить, в то время как
остальные команды запретить невозможно. Для запрещения или разрешения команд
используется глобальный тип TCommandSet, представляющий собой множество чисел в
диапазоне 0...256 (мощность множеств в Турбо Паскале не может превышать 256, вот
почему запретить можно только первые 256 команд). Команды запрещаются обращением к методу DisableCommands, а разрешаются обращением к EnableCommands. Диалоговые элементы, связанные с запрещенными командами, выделяются оттенком и их нельзя выбрать мышью или командными клавишами. Например, если в конструкторе TProgJnit (см. предыдущий пример) перед оператором
if ExecView(Dia) = cmPrint then
вставить оператор
DisableCommand([cmPrint]);
кнопка «Команда cmPrint» будет выведена цветом фона окна и станет недоступна для диалога.