Обработка OnClick у объектов

← →
lamer666 (2003-11-14 18:37) [0]

Доброго всем времени суток!
Я тут объектов наделал в runtime: PopupMenu1.Items[i],
где PopupMenu1.Items.Count меняется.
Проблема в том, что каждый item должен иметь обработку
PopupMenu1.Items[i].OnClick, зависящую от номера i.
Проще, по клику на пункт меню должно выдаваться сообщение
c номером этого пункта.
???

← →
Skier © (2003-11-14 18:42) [1]

обрати внимание на параметр OnClick-а, на Sender

← →
Goffman © (2003-11-14 18:43) [2]

Что-то в этом духе
procedure MenuItemClick(Sender: TObject); begin ShowMessage(IntToStr((Sender as TMenuItem).Tag)) end;

Присваивание:
PopupMenu1.Items[i].OnClick:=MenuItemClick

← →
lamer666 (2003-11-14 18:45) [3]

Спасибо.

Обработка OnClick у объектов Найти похожие ветки