Показать сообщение отдельно
  #42  
Старый 05.12.2012, 02:07
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Вызов по клику (не только PopupMenu)
Код:
    WM_COMMAND :
    begin
      case LOWORD(wParam) of
        ID_POPUP	: ; // что-то делаем
      end;
    end;
Ресурс, какое-то имя файла с расширением rc. Компилится командой brcc32.exe
Код:
// идентификаторы
#define ID_POPUPMENU $1000
#define ID_POPUP0 $1010
#define ID_POPUP0 $1020
#define ID_POPUP0 $1030
#define ID_POPUP0 $1040

// Popup menu
ID_POPUPMENU	MENUEX
BEGIN
  POPUP "Item1"			ID_POPUP0
  BEGIN
    MENUITEM	"SubItem1",	ID_POPUP1
    MENUITEM	"SubItem2",	ID_POPUP2
    MENUITEM	"SubItem3",	ID_POPUP3
  END
END
В исходниках Дельфи такого добра можно нарыть целую кучу.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием