Форум: "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