Турбо Паскаль 6.0

Разрешение и запрещение команд.


Иногда необходимо, чтобы некоторые команды были недоступны пользователю определенное время. Например, нет открытых окон, бессмысленно разрешать пользователю генерировать стандартную команду закрытия окна cmClose. Turbo Vision предоставляет способ запретить и разрешить набор команд. Для разрешения или запрещения Вы используете глобальный тип TCommandSet, который является множеством из чисел в диапазоне от 0 до 255. (Вот почему можно запретить только команды в диапазоне 0255). Следующий код запрещает группу из 5 оконных команд:

var WindowCommands: TCommandSet; begin WindowCommands := [cmNext, cmPrev, cmZoom, cmResize, cmClose]; DisableCommands(WindowCommands); end;



Содержание раздела