Кнопка максимизирования в MDI формах

[AndreyG_80]

Всем добрый день.

У меня есть MDI форма. Мне нужно чтоб ее можно было только закрыть или минимизировать. И соответственно нужно убрать кнопочку "максимизировать" или "востановить прежний размер".
Как это сделать?

[GSerg]

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

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const SC_MAXIMIZE As Long = &HF030&
Private Const MF_BYCOMMAND As Long = &H0&

Private Sub MDIForm_Load()
  Dim h As Long
 
  h = GetSystemMenu(Me.hwnd, 0)

  If h Then RemoveMenu h, SC_MAXIMIZE, MF_BYCOMMAND
End Sub

[AndreyG_80]

Спасибо.

Только есть маленький ньансик. В меню окна присутсвует "востановить".
Как его сделать неактивным?

[Konst_One]

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

Private Const SC_RESTORE = &HF120&

и тп

[GSerg]

В меню окна оно и так неактивно...

[AndreyG_80]

GSerg
Кнопочка неактивна, а в менюшке этот пункт активен...

[GSerg]

В менюшке вообще ничё нет в итоге.
А кнопочка как раз активна... у меня так, во всяком случае. Возможно, это специфично для операционки, и тогда подход неверен изначально.

[GSerg]

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

Option Explicit

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE As Long = -16
Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Const SC_MAXIMIZE As Long = &HF030&
Private Const SC_RESTORE = &HF120&
Private Const MF_BYCOMMAND As Long = &H0&

Private Sub MDIForm_Load()
  Dim h As Long
 
  h = GetSystemMenu(Me.hwnd, 0)
 
  If h Then
    RemoveMenu h, SC_MAXIMIZE, MF_BYCOMMAND
    RemoveMenu h, SC_RESTORE, MF_BYCOMMAND
  End If
 
  SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) And Not WS_MAXIMIZEBOX
End Sub

[AndreyG_80]

Все работает. Большое спасибо.

[AndreyG_80]

Ой, непонятный прикол?!

Оно перестает работать когда я присваиваю какое-то значение свойству Caption

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

MDIForm1.Caption = "forma"

Кнопочка "востановить" стает активной.
В чем проблема?

[GSerg]

Угу. VB возвращает WS_OVERLAPPEDWINDOW.
Но кнопка всё равно не работает

Можно ставить текст через SetWindowText.

[AndreyG_80]

Еще одна интересная глюка.
Окно разворачивается на полный экран, получается, что нижнюю часть окна закрывает панель задач.

[AndreyG_80]

А вот еще одно. При двойном клике, на строке заголовка окна, окно принимает нормальный размер (из максимизированого востанавливается в нормальное)

[GSerg]

У меня окно изначально не максимизировано. И потому никуда не выставляется.

Ну сабклассь, отлавливай WM_SYSCOMMAND, игнорь.

[AndreyG_80]

Я не знаю как это делается
Если не трудно, подскажите как отлавливать WM_SYSCOMMAND, или ткните где искать

[GSerg]

В Кирпичах сабклассер берёшь и отлавливаешь.

[AndreyG_80]

Я сделал по простому

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

If Me.WindowState = 0 Then Me.WindowState = 2

Правда не знаю насколько это правильно, но работает без проблем.