Вниз
Скачать: CL | DM;

Одна процедура для всех пунктов 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


 
Slaga ©   (2004-10-09 18:03) [4]

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



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

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



Память: 0.45 MB
Время: 0.021 c
14-1096756061
KilkennyCat
2004-10-03 02:27
2004.10.24
Куда в Питере можно сдать старые компы?


6-1092728369
jek_
2004-08-17 11:39
2004.10.24
Почтовая программа


14-1096608381
Rule
2004-10-01 09:26
2004.10.24
Никто не подскажет где пожно скачать Programmers Guide для IB


3-1095250068
AndrewK
2004-09-15 16:07
2004.10.24
Как создать отчет во FreeReport.


1-1097248865
DelphiLexx
2004-10-08 19:21
2004.10.24
Создать секцию для общедоступных переменных




   Наверх