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

Событие OnClick для меню Найти похожие ветки