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

popup run time   Найти похожие ветки 

← →
Nick-From ©   (2004-05-27 19:39) [0]

Подскажите пожалуйста, как сделать для пунктов popup-menu - различные подменю в runtime. Пункты меню делаю так, а подпункты не выходит чего-то.

var
 NewItem: TMenuItem;

   NewItem := TMenuItem.Create(aPopup);
   NewItem.Caption := "Заголовок меню";
   NewItem.OnClick := FormMain.pmRatingsClick;
   NewItem.Tag := i;
   aPopup.Items.Add(NewItem);

---

← →
jack128 ©   (2004-05-27 19:42) [1]

NewItem.Add(SuperNewItem)

---

← →
Nick-From ©   (2004-05-27 20:50) [2]

Спасибо выручил :)

Смысл в том, что это меню создается по матрице (первый уровень - столбцы; второй уровень - значения в столбцах по строкам). При нажатии на пункт меню нужно взять соответствующее значение из матрицы. Я связывал индексы матрицы с Tag"ами пунктов меню. Т.е. будет примерно так:
Меню:
1 - 1 2 3 4 5
2 - 1 2 3
3 - 1 2 3 4 5 6 7

Как можно получить Tag номера столбца по нажатию (это номера из первого столбца, слева от тире)?  Т.е. таг пункта меню, к которому нажатое меню прецеплено как подменю?

---

← →
Gero ©   (2004-05-27 23:33) [3]

TMenuItem(Sender).Parent.Tag

---

← →
Nick-From ©   (2004-05-28 00:13) [4]

пасиба :)

---

← →
lak ©   (2004-05-29 01:17) [5]

бруда, мог бы и мне позвонить... сам парился над этим :o)

---

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

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



Память: 0.46 MB
Время: 0.035 c