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

← →
kserg@ukr.net (2003-01-10 17:57) [0]

Народ, подскажите как к пункту MainMenu в качестве SubMenu прилепить уже существующее PopupMenu.
Спасибо

← →
Паша © (2003-01-10 18:21) [1]

mmm:TMenuItem

это создать:

var
Menu: TMenuItem;
begin

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

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

mmm.Add(Menu);

← →
kserg@ukr.net (2003-01-13 11:20) [2]

Может я чё не понял, но мне надо к пункту TMenuItem осн.меню прицепить как Submenu уже существующее TPopupMenu (чтоб не дублировать).
Может я многого хочу или это делается др.способом?

← →
Дмитрий Баранов © (2003-01-13 11:47) [3]

AppendMenu(MainMenu1.Handle, MF_POPUP, UINT(PopupMenu1.Handle), "Test");
DrawMenuBar(Self.Handle);

← →
kserg@ukr.net (2003-01-13 12:07) [4]

Спасибо Дмитрий - уже теплее :-)

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

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

как к MainMenu в качестве SubMenu прилепить PopupMenu Найти похожие ветки