檢查菜單項在Delphi中使用API​​ Win32

Question

當菜單項被禁用，然後在控制應用程序中將代碼「PostMessage」傳遞給崩潰，因爲我需要檢查菜單項是Enabled，然後使用PostMessage。

HandleMenu:= GetMenu(ParentAppHandle); 
    HandleMenu:= GetSubMenu(HandleMenu, 6 {menu item no}); 
    item:= GetMenuItemID(HandleMenu , 12 {sub menu item no}); 

    PostMessage(ParentAppHandle, WM_COMMAND, MakeWParam(item, 0), 0); 

Answer 1

使用WinAPI功能GetMenuState。

實施例：

var 
    State: UINT; 
begin 
    State:= GetMenuState(HandleMenu , 12, MF_BYPOSITION); 
    if (State and (MF_DISABLED or MF_GRAYED)) = 0 then 
    begin 
    // Menu Item is enabled 
    end 
    else 
    begin 
    // Menu Item is disabled 
    end;