Форум: "Основная";
Поиск по всему сайту: 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.028 c
1-22768           yar                   2002-03-27 11:59  2002.04.08  
FFT


14-22807          QueenOfRain           2002-02-26 16:18  2002.04.08  
Глупый вопрос, но все таки


1-22726           Yaro                  2002-03-26 09:44  2002.04.08  
TPasScript


14-22809          Sergo                 2002-02-27 12:23  2002.04.08  
Описание звукашки


1-22760           Goblinus              2002-03-27 13:03  2002.04.08  
Загрузка файлов не из программы