Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

Событие 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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-22708           Varg                  2002-03-26 18:13  2002.04.08  
Вопрос по работе с консолью


1-22720           новенький в Делфи     2002-03-25 10:26  2002.04.08  
Задержка программы


1-22695           SB.John               2002-03-22 13:55  2002.04.08  
CM_MouseEnter & CM_MouseLeave


1-22748           Shark2001             2002-03-27 09:54  2002.04.08  
Событие OnClick для меню


3-22577           Вика                  2002-03-15 13:06  2002.04.08  
Автофильтр в Excel