WM_MENUCOMMAND LPARAM меньше 0

[BLACK_RAIN]

Здравствуйте.

      ImgContainer := CreateWindow('Static','ImageContainer',
      WS_CHILD or WS_VISIBLE or SS_BITMAP or SS_NOTIFY,0,0,10,10, wnd, 0, hInstance, nil);
      img := CreateWindow('Static','Main image' ,
      WS_CHILD or WS_VISIBLE or SS_BITMAP,
      0,0,10,10, ImgContainer, 0, hInstance, nil);

function createpopup1 : hmenu;
var
  mi : tagMENUINFO;
  mii : tagMENUITEMINFO;
//  i : Integer;
begin
  result := createpopupmenu;
  if result>0 then
  begin
  // Добавление кучи пунктов и подменю
  // ...............
      mi.cbSize := SizeOf(mi);
      mi.fMask := MIM_STYLE;
      if GetMenuInfo(Result,mi) then
      begin
        mi.fMask := mi.fMask or MIM_APPLYTOSUBMENUS;
        mi.dwStyle := mi.dwStyle or MNS_NOTIFYBYPOS;
        SetMenuInfo(Result,mi);
      end;
  end;
end;

Переопределяю оконную процедуру ImgContainer, где делаю:

    WM_RBUTTONUP:
    begin
      if menu1>0 then
      begin
        GetCursorPos(p);
        TrackPopupMenu(menu1,TPM_LEFTALIGN,P.x,P.y,0,form1,nil);
      end;
    end;

Потом в функции главного окна ловлю сообщение WM_MENUCOMMAND:

    WM_MENUCOMMAND:
    begin
      if Lpar<=0 then
      begin
        MessageBox(form1,PChar('LParam = '+ IntToStr(Lpar)), PChar('WM_MENUCOMMAND'),
                   MB_ICONERROR);
        Exit;
      end else
//    Обработка пунктов меню

Но один раз за несколько запусков, при каждом тыке на любой пункт меню LParam получается меньше нуля. Перезапустишь программу и всё нормально. Потом, через несколько перезапусков, опять начинается.
В чем дело?

[waleri]

Сообщение от BLACK_RAIN

up________

LPARAM для WM_MENUCOMMAND это HMENU - с чего вы взяли, что он будет больше ноля?

[BLACK_RAIN]

Сообщение от waleri

LPARAM для WM_MENUCOMMAND это HMENU - с чего вы взяли, что он будет больше ноля?

Как это с чего? Туда идентификатор меню приходит

[waleri]

Ну и где сказано, что идентификатор должен быть больше нуля?
HMENU это вообще указатель, какие тут знаки.

[BLACK_RAIN]

Сообщение от waleri

Ну и где сказано, что идентификатор должен быть больше нуля?
HMENU это вообще указатель, какие тут знаки.

Я в недоумении
Вот же ясно написано:
https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

Сообщение от MSDN

lParam

A handle to the menu for the item selected.

Что еще нужно? И как иначе узнать, в каком меню совершен клик?

[Аватар]

HMENU это беззнаковый тип (LongWord). А LPARAM longint насколько помню. Если HMENU будет больше максимального int - чего в LPARAM будет?

[BLACK_RAIN]

Сообщение от Аватар

HMENU это беззнаковый тип (LongWord). А LPARAM longint насколько помню. Если HMENU будет больше максимального int - чего в LPARAM будет?

И что делать в таком случае? LPar как LongWord объявить?

[Пепел Феникса]

HMenu имеет вполне определенную константу нуля, иное значение принято считать корректным меню.
смотрим тут: https://msdn.microsoft.com/ru-ru/lib...(v=vs.85).aspx
и видим что NULL это отсутствие меню, остальное присутствие.
сравнивайте с NULL если вам надо знать есть или нет.

[BLACK_RAIN]

Сообщение от Пепел Феникса

смотрим тут: https://msdn.microsoft.com/ru-ru/lib...(v=vs.85).aspx
и видим что NULL это отсутствие меню, остальное присутствие.

Где там такое написано?
HMENU это хэндл меню, а никакой не указатель! И обращаемся к меню мы именно по этому хэндлу! а не просто проверяем, есть меню или нет.

[waleri]

Ну и обращайтесь, в чем проблема?
Просто надо проверять не > 0 а != 0, вот и все.


В самой винде все манипуляторы объявлены как указатели.