Справочник по компонентам Delphi. Часть 1 - Функции для работы с меню

Written on . Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 40 из 40

Функции для работы с меню

Рассмотрим также описанные в модуле 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): TMainMenu;
Создает новое главное меню с именем 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 NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: Word; const AName: string);Создает новый объект типа TMenuItem. Параметры метода соответствуют свойствам класса.
function NewLine: TMenuItem;Создает новый элемент меню типа разделитель (TMenuItem с Caption = '-').
форум delphi