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

пасиба :)

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

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