Скачать: CL | DM;

Обработка 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]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c