Форум: "Основная";
Поиск по всему сайту: 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.03 c
4-22892           Бильврёст             2002-01-29 14:19  2002.04.08  
Hook s id Dll s - пожалуйсто объясните.


3-22549           ZDN                   2002-03-15 13:04  2002.04.08  
IB 5.5 на NT 4.0 SP6 переход на 5.6


3-22608           {bas}                 2002-03-18 18:31  2002.04.08  
RX


3-22522           Eduard                2002-03-14 11:07  2002.04.08  
Table unknown


1-22740           snoup                 2002-03-26 23:47  2002.04.08  
Почему не работает вот такая фигня: if timeover = 10 then label1.color:=clred;??????