Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Событие OnClick для меню [D6, WinXP]


Shark2001 ©   (2002-03-27 09:54:00) 

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


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

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


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

Спасибо !!!


kull   (2002-03-27 10:56:00) [3]

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


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

(Sender as TMenuItem).Tag


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

If (Sender as TMenuItem).Tag = 1 then


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

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


DieHard   (2002-03-27 09:58:00) [7]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо