WIN API [D6, Win2k]
masha © (2001-12-23 01:18:00)
КАК ПРОГРАММНО СОЗДАТЬ POPUP MENU
Almaz (2001-12-23 02:40:00) [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 окна, которое будет обрабатывать сообщения
от меню.
Удачи.
Наверх 
ЧАТ |
Орешник |
|
