Скачать: CL | DM;

Как добавить к 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c