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

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

TPopupMenu

gidd ©   (2006-10-14 10:08:00) 

Проблема такая: На форме есть PopupMenu1, пытаюсь динамически определять нажатую менюшку, но во время выполнения вылетает ошибка доступа к памяти.
Вот код:
procedure TfMailClient.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
 Rebuild: Boolean);
begin
 if Assigned(PopupMenu1) then
   if Source.Caption = 'копировать' then ShowMessage('ok');
end;

---

gidd   (2006-10-14 11:34:00) [1]

Спасибо, так все работает :)

---

Percent   (2006-10-14 10:57:00) [2]

См. событие OnClick у TMenuItem. В нем Sender - нажатый пункт меню.

---

Наверх