TLMContextMenu

type TLMContextMenu = record

  Msg: Cardinal;

  UnusedMsg: Cardinal;

  hWnd: HWND;

  case Integer of

    0: (

        XPos: SmallInt;

        YPos: SmallInt;

      );

    1: (

        Pos: TSmallPoint;

      );

    2: (

        Dummy: LPARAM;

        Result: LRESULT;

      );

end;