Как добавить к PopUp меню пункты другого меню

← →
<code> (2009-08-07 21:50) [0]

Есть Memo1 и PopUpMenu1. Как добавить пункты одного меню к другому и наоборот?

procedure TForm1.FormCreate(Sender: TObject); var tm: TMenuItem; begin tm:=TMenuItem.Create(Form1); tm.Caption:="ZZZZZZZ"; PopupMenu1.Items.Add(tm); // <-- OK PopupMenu1.Items.Add( (Memo1.PopupMenu.Items.Items[0]) ); // <-- AV PopupMenu1.Items.Add( (Memo1.PopupMenu.Items[0]) ); // <-- AV end;
При попытке обратиться к Memo1.PopupMenu.Items.Items[0] вылезает ошибка. Что здесь неправильно?

← →
TUser © (2009-08-07 23:11) [1]

Есть TForm1. Это такой класс, его у тебя скорее всего один экземпляр - Form1. На нет лежат PopupMenu1 и Memo1. Так?

Тогда: это меню и поле - свойства формы. У поля к тому же есть собственное меню, которое ты не создавал, но его за тебя сделали борланды. Обращение PopupMenu1 в методе формы обозначает обращение к меню формы. Тудыты добавляешь пункт. А обращение Memo1.PopupMenu1 - это уже к полю, а точнее к его менюшке, куда ты ничего не добавлял. нету там пунктов, при попытке обратиться к ним ты получаешь AV.

← →
<code> (2009-08-08 17:09) [2]

Спасибо, разобрался.

Как добавить к PopUp меню пункты другого меню Найти похожие ветки