Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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);


 
Diamond Cat   (2003-04-18 22:34) [4]

надо наверно добавить ,что обрабатываются команды от меню
в твоей оконной фукции по сообщению 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-19 03:23) [5]

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



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.09 c
14-60339
Udjin
2003-05-31 00:18
2003.06.19
13 билет на экзамене


1-60135
Fil
2003-06-06 12:01
2003.06.19
Закрытие другой программы


1-60240
agentru
2003-06-05 17:51
2003.06.19
Запись данных в память


14-60378
Ann
2003-06-03 08:44
2003.06.19
Преобразование


1-60110
Back
2003-06-06 10:48
2003.06.19
Как отобразить окно поверх всех окон всех работающих приложений





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский