Контекстное меню (КМ)

[arthur2]

Сабклассинг - это про обработку WM_COMMAND от меню, созданного при помощи CreatePopupMenu.

Я стандартными вб-меню ВООБЩЕ никогда не пользуюсь. Прежде всего потому, что они не позволяют использовать уникод. Но только из-за меню прикручивать субклассинг, что бы ловить WM_CONTEXTMENU - смысла не вижу. Другое дело - если субклассинг уже прикручен для какой-нибудь надобности

[iGrok]

Почему - потому, что окно получает стили WS_CAPTION | WS_SYSMENU и WS_EX_WINDOWEDGE.

А кто мешает эти стили убрать при загрузке?
PS. WS_EX_WINDOWEDGE у меня не получает.

Никто не мешает. Попробуй, и посмотри, что получится. Картинка, честно говоря, не очень.

[Alec]

Картинка, честно говоря, не очень.

Если ты про "остатки" заголовка, то, впринципе их можно победить.
Наверное, коряво, но все же:

Код: Выделить всё

Private Sub Form_Load()
  Dim WS As Long
  WindowState = 1
  WS = GetWindowLong(hwnd, GWL_STYLE)
  WS = WS And Not (WS_CAPTION Or WS_SYSMENU)
  Call SetWindowLong(hwnd, GWL_STYLE, WS)
  Visible = True
  WindowState = 0
End Sub


[iGrok]

Наверное, коряво, но все же:...

Забавно. Коряво, но работает.
Интересно, как будет "прямо".

[arthur2]

Забавно. Коряво, но работает.
Интересно, как будет "прямо".

Код: Выделить всё

Private Sub Form_Initialize()
  Dim WS As Long
'  WindowState = 1
  WS = GetWindowLong(hWnd, GWL_STYLE)
  WS = WS And Not (WS_CAPTION Or WS_SYSMENU)
  Call SetWindowLong(hWnd, GWL_STYLE, WS)
'  Visible = True
'  WindowState = 0
End Sub


[iGrok]

Form_Initialize()

Блин. А ведь точно. )

[Alec]

Form_Initialize()

Блин. А ведь точно. )

Блин. А у меня это не работает - пытается рисовать заголовок...

[arvitaly]

Всем, если уж на то дело пошло, стандартное меню вообще не очень удобный инструмент, приложив не так много усилий создается свое с любым функционалом. Я делал его в свое время для создания выборки группы (5 вложенных подгрупп) в виде меню из базы. Но оно годилось и для обычного. Никаких заморочек и просто летало. Это я к тому, что лично мне гораздо проще создать свое чем переделывать чужое