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

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

Меню [D6]

Nic-2 ©   (2002-08-12 19:40:00) 

Как обработать событие PopupMenu, в которое я программно добавил Items-ы?

---

Poirot   (2002-08-13 01:34:00) [1]

просто присваиваешь обработчик OnClick...
Но программно это как.... Если присваиваешь через API то при создании
ID_ABOUT=20251;
procedure TForm1.wmSysCommand;
begin
case Message.wParam of
ID_ABOUT:Button8Click(Self) ;
20250:ShowMessage("20250");
end;
Label1.Caption:=IntToStr(Message.wParam);
inherited;
end;
что-то типа этого....
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_ABOUT, "About");

---

Наверх