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

Вниз

МЕНЮ НА WINAPI   Найти похожие ветки 

 
KME   (2004-03-12 09:02) [0]

КАК НА ЧИСТОМ WINAPI СДЕЛАТь МЕНЮ?


 
KME   (2004-03-12 09:02) [0]

КАК НА ЧИСТОМ WINAPI СДЕЛАТь МЕНЮ?


 
Serge ©   (2004-03-12 09:34) [1]

ЧИСТО ручками, мдя... :о)
Писать надо ресурсный файл, читать инфу Ms SDK по менюшкам, в частности и по LoadMenu


 
Serge ©   (2004-03-12 09:34) [1]

ЧИСТО ручками, мдя... :о)
Писать надо ресурсный файл, читать инфу Ms SDK по менюшкам, в частности и по LoadMenu


 
Serge ©   (2004-03-12 09:37) [2]

Да, можешь еще использовать Workshop, либо редакторы ресурсов BC5 MsVisualC++ ...


 
Serge ©   (2004-03-12 09:37) [2]

Да, можешь еще использовать Workshop, либо редакторы ресурсов BC5 MsVisualC++ ...


 
X9   (2004-03-12 11:48) [3]

Посмотри исходники Menus.pas


 
X9   (2004-03-12 11:48) [3]

Посмотри исходники Menus.pas


 
Agent13 ©   (2004-03-12 13:29) [4]

Необязательно читать меню из ресурса. Можно прямо в программе создавать и заполнять его. См. Ф1 по CreateMenu, AppendMenu, InsertMenu.


 
Agent13 ©   (2004-03-12 13:29) [4]

Необязательно читать меню из ресурса. Можно прямо в программе создавать и заполнять его. См. Ф1 по CreateMenu, AppendMenu, InsertMenu.


 
Diamond Cat ©   (2004-03-12 16:24) [5]

procedure menucreate(wnd:hwnd);// wnd хендл родительского окна , в winproc этого окна будут приходить сообщения от меню
begin
men:=CreatePopupMenu;
     if men=0 then messagebox(wnd,"не создалось меню","ля-ля",mb_ok);
       AppendMenu(men,mf_ByCommand, 1, "Команда 1");
       AppendMenu(men,mf_ByCommand,2,"Команда 2");
       AppendMenu(men,MF_SEPARATOR,0,nil);
       AppendMenu(men,mf_ByCommand,3,"Выход");
       EnableMenuItem(men,2,MF_GRAYED);
end;
в winproc окна определенного через wnd проверяем сообщение wm_command

wm_command:
    begin
        if wparam=1 then делаем нечто соответствующее первой команде;
if wparam=3 then  postquitmessage(0);

    end;


 
Diamond Cat ©   (2004-03-12 16:24) [5]

procedure menucreate(wnd:hwnd);// wnd хендл родительского окна , в winproc этого окна будут приходить сообщения от меню
begin
men:=CreatePopupMenu;
     if men=0 then messagebox(wnd,"не создалось меню","ля-ля",mb_ok);
       AppendMenu(men,mf_ByCommand, 1, "Команда 1");
       AppendMenu(men,mf_ByCommand,2,"Команда 2");
       AppendMenu(men,MF_SEPARATOR,0,nil);
       AppendMenu(men,mf_ByCommand,3,"Выход");
       EnableMenuItem(men,2,MF_GRAYED);
end;
в winproc окна определенного через wnd проверяем сообщение wm_command

wm_command:
    begin
        if wparam=1 then делаем нечто соответствующее первой команде;
if wparam=3 then  postquitmessage(0);

    end;


 
DVM ©   (2004-03-12 18:51) [6]

http://delphimaster.net/view/4-1078933712/


 
DVM ©   (2004-03-12 18:51) [6]

http://delphimaster.net/view/4-1078933712/



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

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

Наверх




Память: 0.49 MB
Время: 0.044 c
1-1082357849
WondeRu
2004-04-19 10:57
2004.05.09
TCheckBox.State


14-1082099661
Igorek
2004-04-16 11:14
2004.05.09
Есть идея - супер мотоцикл! Критикуйте!


1-1082637020
killer
2004-04-22 16:30
2004.05.09
StringGrid


3-1081844704
Term
2004-04-13 12:25
2004.05.09
Компоненты InterBase Admin


1-1082465550
snake1977
2004-04-20 16:52
2004.05.09
Перегрузка функций





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