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

Вниз

PopupMenu   Найти похожие ветки 

 
Remis   (2003-05-22 23:39) [0]

Как программно добавить submenu?


 
KA_   (2003-05-23 08:59) [1]


var
PopupItem: TMenuItem;
begin
...
PopupItem := TMenuItem.Create(Self);
PopupItem.Caption := "Caption of new item";
PopupItem.OnClick := NewPopupItemClick;
PopupMenu.Items.Add(PopupItem);
...
end;


 
Palladin   (2003-05-23 09:07) [2]

что бы из пункта получилось меню нужно добавить в этот пункт пункт :)


 
Remis   (2003-05-23 12:02) [3]

Создать Menu.Items я умею... Но мне надо в один пункт добавить другие пункты. И незнаю как. Вот как в примере в "Caption of new item" нужно добавить еще скажем item1, item2, item3...


 
Palladin   (2003-05-23 12:04) [4]

метод Add вам знаком?


 
Remis   (2003-05-23 12:44) [5]

Конечно знаком. Но видимо я плохо обьясняю или незнаю чего то элементарного...
Если я делаю PopupMenu.Items.Add(PopupItem), добавляеться пункт в menu, если еще раз PopupMenu.Items.Add(PopupItem), добавляеться пункт РЯДОМ с первым. А мне нужно добавить В первый пункт...


 
Palladin   (2003-05-23 12:54) [6]

а вот так не пробовал
PopupMenu.Items[1].Add(PopupItem)


 
Remis   (2003-05-23 21:24) [7]

Во... Это то что нужно. :))



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

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

Наверх





Память: 0.45 MB
Время: 0.008 c
14-13390
Iban
2003-05-17 12:54
2003.06.05
TFastDIB


1-13302
Sandman25
2003-05-22 18:12
2003.06.05
Утечка памяти


1-13259
TrollXP
2003-05-22 08:30
2003.06.05
Проблема с ListBox ом


1-13114
Apachi
2003-05-23 09:52
2003.06.05
Дочерние окна


1-13179
Пубертанец
2003-05-23 17:37
2003.06.05
Вернуть значения из открытого из Delphi Excel-я обратно в програм





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский