 |
Сервер
поддерживается
кафедрой информатики и
вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by
|
Функции для работы с меню
Рассмотрим
описанные в модуле Menus полезные
функции для управления меню.
Четыре
функции предназначены для
преобразования типа TShortCut,
представляющего горячую
комбинацию клавиш:
а) в
символ+состояние специальных
клавиш и обратно:
procedure ShortCutToKey(Shortcut:
TShortCut; var Key: Word;
═════var Shift: TShiftState);
function Shortcut(Key:
Word; Shift: TShiftState): TShortCut;
б) в текст
и обратно:
function ShortCutToText(Shortcut:
TShortCut): string;
function TextToShortCut(Text:
string): TShortCut;
Новые
меню и их составные части можно
создавать, пользуясь функциями:
Function NewMenu
(Owner: Tcomponent;
const Aname: string;
Items: array of TmenuItem): TMairiMenu; |
Создает
новое главное меню с именем AName
и пунктами Items, которое будет
принадлежать владельцу Owner. |
Function NewPopupMenu(
Owner: TComponent;
const Aname: string; Alignment: TPopupAlignment;
AutoPopup: Boolean; Items: array of TMenuItem):
TpopupMenu; |
Создает
новое всплывающее меню.
Назначение дополнительных
параметров см. описание TPopupMenu. |
Function NewSubMenu(const
Acaption: string;
hCtx: Word; const Aname: string;
Items: array of TMenuItem): TMenuItem; |
Создает
новое подменю. Здесь AName ? имя
объекта, ACaption ? его текст, hCtx ?
контекст системы помощи. |
function Newltem(const
ACaption: string;
AShortCut: TShortCut;
AChecked, AEnabled: Boolean; AonClxck: TNotifyEvent;
hCtx: Word; const AName: string): TMenuItem; |
Создает
новый объект типа TMenuItem.
Параметры метода
соответствуют свойствам
класса. |
| function NewLine:
TmenuItem; |
Создает
новый элемент меню типа
разделитель (TMenuItem с Caption =
'-'). |
Все
функции в случае успешного
завершения возвращают указатель на
созданный объект.
Для
комментария : kadan@grsu.grodno.by
| 
