Достать подменю

← →
Канадин Владимир (2002-02-28 12:09) [0]

Вопрос прост: хочу достать подменю из всплывающего меню, чтобы присобачить его к DropDown Menu на кнопке ToolBar"а. Или заставить меню считать другое Popup меню своим подменю. Кто-нибудь может подсказать способ решения этой проблемы?

← →
lipskiy © (2002-02-28 21:05) [1]

Во-во, мне бы тоже хотелось услышать решение, если оно есть.
Я как-то мучился, ничего не вышло. IMHO, ни как нельзя.

← →
Song © (2002-02-28 21:39) [2]

Достать по-моему не проблема, если я правильно понял вопрос:
TMenuItem(Sender).Caption

← →
lipskiy © (2002-02-28 22:10) [3]

Насколько я понял, надо не название менюхи достать, а ее саму оторвать от одной менюхи и прикрутить к другой. Типа подветку из одного Popup перенести в другой Popup, или же просто отображать и там и там одно и тоже подменю.

← →
[NIKEL] © (2002-03-01 05:40) [4]

(если я правильно понял вопрос)
если надо отображать и там и там одно и тоже меню, то зачем другой Popup ? достаточно обработать нажатие левой клавы мыши на любом компаненте и раскрыть там нужное попап меню :)
примерно так:
void __fastcall TMainForm::SomeButtonClick(TObject *Sender) { PopupMenu->Popup(Mouse->CursorPos.x,Mouse->CursorPos.y); }
вот и всё

← →
Канадин Владимир (2002-03-01 11:35) [5]

К сожалению, вопрос был в другом. В Delphi в главном меню есть пункт File/Reopen, в котором выпадает меню-список последних проектов и файлов. Точно такое-же меню-список выпадает при нажатии на DropDown кнопку Open. Вопрос состоит в том, как реализовать самому аналогичное поведение меню.

Похоже, что только созданием заново при нажатии на кнопку аналогичного меню

например так:
var MyPopup:TPopupMenu; NewItem: TMenuItem; i:byte; MySubItems: array[0..1] of TMenuItem; begin MyPopup:=TPopupMenu.Create(Self); NewItem := TMenuItem.Create(Self); NewItem.Caption := "NewItem"; MyPopup.Items.Add(NewItem); for i:=0 to 1 do begin MySubItems[i] := TMenuItem.Create(Self); MySubItems[i].Caption := PopupMenu1.Items[1].Items[i].Caption; MySubItems[i].OnClick := PopupMenu1.Items[1].Items[i].OnClick; MyPopup.Items[0].Add(MySubItems[i]); //а так почему-то не добавляется :( ??? //MyPopup.Items[0].Add(PopupMenu1.Items[1].Items[i]); end; ToolButton1.DropDownMenu:=MyPopup; .. end;

Достать подменю Найти похожие ветки