Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.10.11;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Начинающим";
Текущий архив: 2009.10.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.004 c
2-1249632868
_Андрей
2009-08-07 12:14
2009.10.11
TList &amp; records


15-1249989451
TUser
2009-08-11 15:17
2009.10.11
Экзопланеты и другие астрономические открытия


15-1250109003
Юрий
2009-08-13 00:30
2009.10.11
С днем рождения ! 13 августа 2009 четверг


15-1249482003
cwl
2009-08-05 18:20
2009.10.11
в честь чего


4-1219219075
ZeBriD
2008-08-20 11:57
2009.10.11
Закрытый ключ шифрования в хранилище Windows XP





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский