Форум: "Основная";
Поиск по всему сайту: 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.016 c
1-22615           [HDD]John             2002-03-27 12:42  2002.04.08  
Имитация нажатия кнопки.


7-22864           Ruslan                2002-01-09 11:49  2002.04.08  
RS232


4-22881           AlexanderS            2002-01-22 15:45  2002.04.08  
Как получить selected text


1-22646           IronHawk              2002-03-27 12:30  2002.04.08  
Как обыкновенную ToolBar-ину сделать вертикальной ? Все её свойства и её саму повернуть на 90° ???


3-22539           Alex-A                2002-03-14 14:37  2002.04.08  
Ошибка в Exctended procedure