Главная страница
    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.009 c
14-60358
MishaS
2003-06-02 13:14
2003.06.19
Исчез CD_ROM в системе


14-60348
Зозуля Юрий
2003-05-30 23:44
2003.06.19
Где моя анкета


3-60032
vvvvv
2003-05-27 16:26
2003.06.19
Можно-ли через ADO упаковать *.mdb ?


14-60396
Rafik
2003-06-03 12:34
2003.06.19
Преобразователь


3-60047
chistyakov
2003-05-27 12:14
2003.06.19
Функции времени в InterBase





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский