WIN API

← →
masha (2001-12-23 01:18) [0]

КАК ПРОГРАММНО СОЗДАТЬ POPUP MENU

← →
Almaz © (2001-12-23 02:40) [1]

Например так:

const PARAM1 = 100; PARAM2 = 101; PARAM3 = 102; ... var H: THandle; begin H := CreatePopupMenu; // Создание меню AppendMenu(H, MF_STRING, CM_PARAM1, "Пункт 1"); // заполнение меню AppendMenu(H, MF_STRING, CM_PARAM2, "Пункт 2"); AppendMenu(H, MF_SEPARATOR, 0, nil); AppendMenu(H, MF_STRING, CM_PARAM3, "Выход"); TrackPopupMenu(H, TPM_RIGHTBUTTON or TPM_LEFTALIGN, X, Y, 0, Wnd, nil); // отображение меню на экране DestroyMenu(H); // уничтожение меню end;
X, Y - координаты на экране, куда будет выводиться меню
Wnd - это handle окна, которое будет обрабатывать сообщения от меню.

Удачи.

WIN API Найти похожие ветки