Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как к MainMenu в качестве SubMenu прилепить PopupMenu [D5]

kserg@ukr.net © (2003-01-10 17:57:00)
Народ, подскажите как к пункту MainMenu в качестве SubMenu прилепить уже существующее PopupMenu.
Спасибо

Дмитрий Баранов (2003-01-13 13:16:00) [1]
Тогда делай от противного. Создай одно главное меню, TPopUp меню не нужны.
Пусть File1 - это первый итем главного меню. Тогда его подменю можно вызвать, как всплывающее:
procedure TForm1.Button1Click(Sender: TObject);
begin
TrackPopUpMenu(File1.Handle, 0, 100, 100, 0, Self.Handle, nil);
end;

kserg@ukr.net (2003-01-13 12:07:00) [2]
Спасибо Дмитрий - уже теплее :-)

Но в твоем вар-те происходит добавление нового пункта меню Теst в конце строки меню, а мне необходимо "прицепить" как в примере из Делфи File-Reopen.
уж ивзините меня, что так бестолково объясняю.
Помоги пожалуйста, а то сам я долго буду доходить

Дмитрий Баранов (2003-01-13 11:47:00) [3]
AppendMenu(MainMenu1.Handle, MF_POPUP, UINT(PopupMenu1.Handle), "Test");
DrawMenuBar(Self.Handle);

kserg@ukr.net (2003-01-13 11:20:00) [4]
Может я чё не понял, но мне надо к пункту TMenuItem осн.меню прицепить как Submenu уже существующее TPopupMenu (чтоб не дублировать).
Может я многого хочу или это делается др.способом?

Паша (2003-01-10 18:21:00) [5]
mmm:TMenuItem

это создать:

var
Menu: TMenuItem;
begin

Menu:= TMenuItem.Create(self);
Menu.Caption:= "sssss";
Menu.onClick:= FOnClick;
mmm.Add(Menu);

просто прицепить будет, видимо
Menu - уже нарисовали в IDE

mmm.Add(Menu);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »