Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

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 окна, которое будет обрабатывать сообщения от меню.

Удачи.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.023 c
3-66431           Анонимщик             2002-01-26 12:59  2002.02.21  
TADOConnection + ConnectionString + runtime


3-66440           xmapa                 2002-01-23 16:45  2002.02.21  
Почему теряются ссылки на модуль данных в D6?


4-66710           Delphimun             2001-12-22 17:37  2002.02.21  
Как сделать, чтобы моё приложение нельзя было свернуть или перейти на другую прогу?


7-66698           gggg                  2001-11-17 15:33  2002.02.21  
Help. Люди, кто знает как узнать, что Win ды хотят выгрузиться


14-66656          DjG-CORE              2001-10-29 20:03  2002.02.21  
Ведётся создание игры Resident Evil на TMT Pascal-е / Delphi.