Одна процедура для всех пунктов TPopupMenu.

← →
Slaga © (2004-10-09 17:46) [0]

У меня такой вопрос, есть TPopupMenu, у него есть 6 пунктов, я для них всех сделал одну процедуру, как мне внутри этой процедуры узнать какой пункт меню я выбрал ?
Я это делаю так:

ID := (Sender as TPopupMenu).Items.MenuIndex;

Но оно ругается что инвалид тайп класс.

← →
Семен Сорокин © (2004-10-09 17:47) [1]

Sender as TMenuItem

← →
Slaga © (2004-10-09 18:00) [2]

А можно полностью кусочек кода который покажет мне индекс нажатого пункта меню !?

← →
Семен Сорокин © (2004-10-09 18:02) [3]

выстави у каждого пункта меню свой Tag - и его используй.

TMenuItem(Sender).Tag

Не, вот это класно работает: (Sender as TMenuItem).MenuIndex;
Спасибо.

Одна процедура для всех пунктов TPopupMenu. Найти похожие ветки