Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Одна процедура для всех пунктов TPopupMenu. [D7, WinXP]


Slaga ©   (2004-10-09 17:46:00) 

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

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

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


Slaga   (2004-10-09 18:03:00) [1]

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


Семен Сорокин   (2004-10-09 18:02:00) [2]

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

TMenuItem(Sender).Tag


Slaga   (2004-10-09 18:00:00) [3]

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


Семен Сорокин   (2004-10-09 17:47:00) [4]

Sender as TMenuItem


Наверх

Титульная страница Поиск, карта сайта Написать письмо