|
Вы можете использовать готовые функции, определенные в модуле Menus.
Определения в Delphi 2:
function NewMenu(Owner: TComponent; const AName: string;
Items: array of TMenuItem): TMainMenu;
function NewPopupMenu(Owner: TComponent; const AName: string;
Alignment: TPopupAlignment; AutoPopup: Boolean; Items: array of
TMenuitem): TPopupMenu;
function NewSubMenu(const ACaption: string; hCtx: Word; const AName:
string; Items: array of TMenuItem): TMenuItem;
function NewItem(const ACaption: string; AShortCut: TShortCut;
AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: Word;
const AName: string): TMenuItem;
function NewLine: TMenuItem;
|
Это превращает вышепоставленную задачу в сущий пустяк.
|
Динамическое добавление пунктов меню 3