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

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

Динамическое меню [D7]

Woprosnik ©   (2005-06-03 10:30:00) 

Программно создаю пункты меню. Теперь на каждый смозданный пункт надо повесить обработчик события OnClick. Подскажите пожалуйста, как это можно сделать?

Собственно действие на клик по любому пункту должно быть одно, просто передаются в него разные параметры.

---

Woprosnik   (2005-06-03 12:49:00) [1]

Всем большое спасибо.

---

Pearled   (2005-06-03 12:11:00) [2]

If TMenuItem(Sender).Caption = ... then ...

---

Woprosnik   (2005-06-03 12:11:00) [3]

По которому сделан клик.
Динамически фйормируется меню. В программе пользователь открывает еге, щелкает по пункту меню. Как мне определеить в программе, по какому пункту был сделан клик?

---

Gero   (2005-06-03 12:09:00) [4]

Что значит «выбрано»?

---

Woprosnik   (2005-06-03 12:05:00) [5]

Большое спасибо.
Еще один вопрос. Как определить какой из пунктов меню выбрано? Как я понимаю, подобия свойства SelectIndex у PopupMenu нет.

---

Плохиш   (2005-06-03 10:54:00) [6]

Обработчик надо присваивать каждому создаваемому пункту меню


NewItem.OnClick := ...


---

Woprosnik   (2005-06-03 10:39:00) [7]

Пытаюсь так сделать, но не срабатывает. Хотя, возможно, я что-то делаю не так. Вот код создания:

 While not Form1.pFIBDataSet5.Eof do begin
      NewItem:= TMenuItem.Create(Self);
      NewItem.Caption:= Form1.pFIBDataSet5Tip.AsString;
      NewItem.ImageIndex:= 0;
      PopupMenu1.Items.Add(NewItem);
      PopupMenu1.Items.OnClick:= N1Click;
      Form1.pFIBDataSet5.Next;
   end;

---

Sergey Masloff   (2005-06-03 10:35:00) [8]

Просто присвоить событию указатель на процедуру.

---

Наверх