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

Событие OnClick для меню   Найти похожие ветки 

 
Shark2001   (2002-03-27 09:54) [0]

В процессе выполнения программы в меню должны добавлятся пункты меню (примерно 30). Как сделать чтобы для всех этих пунктов был один и тотже код, но чтобы можно было определить, какой именно пункт меню был выбран ?
Помогите пожалуйста.


 
DieHard ©   (2002-03-27 09:58) [1]

Установи свойство Tag у каждого пункта меню со своим значением и в общем обработчике его проверяй


 
Shark2001   (2002-03-27 10:10) [2]

Дело в том что в общем обработчике Tag проверить нельзя т.к. Он имеет единственный входящий параметр Sender:TObject, который не имеет Tag


 
gek   (2002-03-27 10:13) [3]

If (Sender as TMenuItem).Tag = 1 then


 
Adder ©   (2002-03-27 10:17) [4]

(Sender as TMenuItem).Tag


 
kull ©   (2002-03-27 10:56) [5]

А еще у пунктов меню есть свои индексы.


 
Shark2001   (2002-03-27 10:57) [6]

Спасибо !!!


 
Shark2001   (2002-03-27 10:59) [7]

Kull с индексами тоже не получается т.к. пункты меню добавляются в разном порядке.
Мне подходит вариант Adder и gek



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

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



Память: 0.46 MB
Время: 0.008 c
3-22518
Dima Kopachev
2002-03-11 20:12
2002.04.08
Непосредственный ввод значения в DBLookupComboBox


1-22759
Толик
2002-03-26 17:07
2002.04.08
вызов функции-члена класса


1-22653
Chistyakov Victor
2002-03-28 10:42
2002.04.08
Delphi&Word


14-22836
BJValentine
2002-02-13 22:29
2002.04.08
Почта


3-22521
Сержжж
2002-03-14 11:24
2002.04.08
Еще раз о подключении к уд. компу




   Наверх