Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];

Вниз

Обработка 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 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.011 c