Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Создание контекстного меню. [D6, WinXP]

Sodom © (2003-04-18 11:42:00)
Здравствуйте. Нужно сделать прогу весящюю в трее и при нажатии правой кнопки на значок, чтобы появлялось меню. Проблема только в том, как это самое меню содать средствами API?

Songoku (2003-04-19 03:23:00) [1]
Удалено модератором
Примечание: Offtopic

Diamond Cat (2003-04-18 22:34:00) [2]
надо наверно добавить ,что обрабатываются команды от меню
в твоей оконной фукции по сообщению 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;

Songoku (2003-04-18 18:42:00) [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);

oleg_art (2003-04-18 17:07:00) [4]
Не мучайся. Используй компонент TLMDTrayIcon(посмотри исходники, там описано как это делается). К нему можно
подцепить PopupMenu .

Cobalt (2003-04-18 12:28:00) [5]
CreateMenu.
Вообще-то, в хелпе есть такая вкладка - поиск. По слову "Menu" и "create" (создать) можно найти, ну, на крайний случай, посмотреть исходники TPopupMenu

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »