| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как создать меню полностью на WinAPI?

Swimmer ©   (2004-03-25 22:40:00) 

Я создаю программу полность на WinAPI (без VCL). Вроде во всем разобрался, но нигде не могу найти инфу по созданию меню. Не подскажите, где ее (инфу) найти, или как его (меню) создавать.

---

марсинанин   (2004-03-28 14:02:00) [1]

почти как у Diamond Cat ©, но главное меню целиком с попапами


 WindowH    :HWnd; //handle главного окна
 MenuHandle :HMENU;
 hFileSMenu :HMENU;
 hDeviceSMenu :HMENU;
 hViewSMenu :HMENU;
 hHelpSMenu :HMENU;
...............
procedure InitMainMenu;
begin
 hFileSMenu := CreatePopupMenu;
    AppendMenu(hFileSMenu, MF_STRING or MF_ENABLED, 111, 'Open File');
    AppendMenu(hFileSMenu, MF_STRING or MF_ENABLED, 112, 'Save.....');
    AppendMenu(hFileSMenu, MF_STRING or MF_ENABLED, 113, 'Save As..');
    AppendMenu(hFileSMenu, MF_SEPARATOR, 0, '-');
    AppendMenu(hFileSMenu, MF_STRING or MF_ENABLED, 114, 'Close..');
 hDeviceSMenu := CreatePopupMenu;
    AppendMenu(hDeviceSMenu, MF_STRING or MF_ENABLED, 121, 'Generate Data');
    AppendMenu(hDeviceSMenu, MF_SEPARATOR, 0, '-');
    AppendMenu(hDeviceSMenu, MF_STRING or MF_ENABLED, 122, 'Options');
 hViewSMenu := CreatePopupMenu;
    AppendMenu(hViewSMenu, MF_STRING or MF_ENABLED,131, 'Zoom  In(+)');
    AppendMenu(hViewSMenu, MF_STRING or MF_ENABLED,132, 'Zoom Out(-)');
    AppendMenu(hViewSMenu, MF_SEPARATOR, 0, '-');
    AppendMenu(hViewSMenu, MF_STRING or MF_ENABLED,133, 'Hello, World');
 hHelpSMenu := CreatePopupMenu;
    AppendMenu(hHelpSMenu, MF_STRING or MF_ENABLED,141, 'Help Contexts');
    AppendMenu(hHelpSMenu, MF_STRING or MF_ENABLED,142, 'Troubles?');
    AppendMenu(hHelpSMenu, MF_SEPARATOR, 0, '-');
    AppendMenu(hHelpSMenu, MF_STRING or MF_ENABLED,143, 'About this...');
 MenuHandle := CreateMenu;
    AppendMenu(MenuHandle, MF_POPUP or MF_ENABLED, hFileSMenu, 'File...');
    AppendMenu(MenuHandle, MF_POPUP or MF_ENABLED, hDeviceSMenu,'My Device');
    AppendMenu(MenuHandle, MF_POPUP or MF_ENABLED, hViewSMenu, 'View ');
    AppendMenu(MenuHandle, MF_POPUP or MF_ENABLED, hHelpSMenu, 'Help!');
 SetMenu(WindowH,MenuHandle);
 DrawMenuBar(WindowH);
end;


InitMainMenu вызывается сразу после создания окна WindowH

обработка событий:


// OnCommand вызывается из оконной прцедуры как реакция на  WM_COMMAND

function OnCommand(WParam,LParam : LongInt) : LongInt;
begin
result := 0;
 case LOWORD(wParam) of
   111: result := OpenProc;
   112: result := SaveProc;
   113: result := SaveAsProc;
   114: PostQuitMessage(0);//File Exit

   121: result := GenProc;
   122:;

   131: result := ZoomInProc;
   132: result := ZoomOutProc;
   133:;

   141:;
   142:;
   143:;
 end;
 
end;


циферки лучше оформить как константы

при завершении работы, после цикла обработки сообщений:


 DestroyMenu(hFileSMenu);
 DestroyMenu(hDeviceSMenu);
 DestroyMenu(hViewSMenu);
 DestroyMenu(hHelpSMenu);
 DestroyMenu(MenuHandle);


но, вообще говоря, нормальные люди грузят такие меню из ресурса..

---

Diamond Cat   (2004-03-26 23:15:00) [2]

создание попапменю
function WinProc (hWnd: THandle; nMsg: UINT; wParam, lParam: Cardinal): Cardinal; export; stdcall;
begin
wm_command:
    begin
        if wparam=1 then делаем чтото по команде 1
...................................................
        if wparam=4 then postquitmessage(0);
end;{of wm_command}
end;

procedure menucreate(wnd:hwnd);
begin
men:=CreatePopupMenu;
     if men=0 then messagebox(wnd,'не создалось меню','Auto_scroll',mb_ok);
       AppendMenu(men,mf_ByCommand, 1, 'строка один');
       AppendMenu(men,mf_ByCommand,2,'строка два');
       AppendMenu(men,mf_ByCommand,3,'строка 3');
       AppendMenu(men,MF_SEPARATOR,0,nil);
       AppendMenu(men,mf_ByCommand,4,'Выход');
       EnableMenuItem(men,3,MF_GRAYED);
end;

procedure WinMain;
var
 hWnd: THandle;
 Msg: TMsg;
begin
 WndClassEx.cbSize := sizeOf (TWndClassEx);
.....  
 if RegisterClassEx (WndClassEx) = 0 then begin
 MessageBox (.....);
 halt;
 end ;
   hWnd := CreateWindowEx ( .....);
     menucreate(hwnd);
   while GetMessage (Msg, 0, 0, 0) do
     begin
       TranslateMessage (Msg);
       DispatchMessage (Msg);
     end;
end;
практически также  создается  с помощью createmenu  и просто меню

---

Swimmer   (2004-03-26 22:12:00) [3]

А ресурсов в рунете нету по этому поводу?

---

DVM   (2004-03-26 21:02:00) [4]

> Вроде во всем разобрался, но нигде не могу найти инфу по
> созданию меню.

Не может быть. В справке по Win32 поставляемой с Делфи все это есть.

---

Diamond Cat   (2004-03-26 16:41:00) [5]

еще можно создать меню в ресурсном файле а потом просто назначить его своему окну при его компановке или позже через SetMenu.

---

rimd   (2004-03-26 10:31:00) [6]

API CreateMenu

---

Наверх