Создание контекстного меню.

← →
Sodom © (2003-04-18 11:42) [0]

Здравствуйте. Нужно сделать прогу весящюю в трее и при нажатии правой кнопки на значок, чтобы появлялось меню. Проблема только в том, как это самое меню содать средствами API?

← →
Cobalt © (2003-04-18 12:28) [1]

CreateMenu.
Вообще-то, в хелпе есть такая вкладка - поиск. По слову "Menu" и "create" (создать) можно найти, ну, на крайний случай, посмотреть исходники TPopupMenu

← →
oleg_art © (2003-04-18 17:07) [2]

Не мучайся. Используй компонент TLMDTrayIcon(посмотри исходники, там описано как это делается). К нему можно
подцепить PopupMenu .

← →
Songoku © (2003-04-18 18:42) [3]

GetCursorPos(P);
m:=CreatePopupMenu();
AppendMenu(m,MF_STRING ,101 ,"&About ");
AppendMenu(m, 0, 0,nil);
AppendMenu(m,MF_STRING ,102 ,"&Бля бля бля");
TrackPopupMenu(m,TPM_RIGHTALIGN,p.x,p.y,0,hWnd,nil);

надо наверно добавить ,что обрабатываются команды от меню
в твоей оконной фукции по сообщению wm_command, исходя из примера от Songoku это будет выглядеть примерно так
wm_command:
if wparam=102 then
begin
ну к примеру
if MF_CHECKED=GetMenuState(men,102,mf_string) then
CheckMenuItem (men,102,MF_UNCHECKED)else
CheckMenuItem (men,102,MF_CHECKED);
showmessage ("не ругайте дурака за мат");
end;

Удалено модератором
Примечание: Offtopic

Создание контекстного меню. Найти похожие ветки