API function to remove min button in MDIform

[Megatron]

Try this:

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
 
Private Sub Form_Load()
    'Remove sizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION)
    'Remove minimizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION)
End Sub

[Matthew Gates]

Originally posted by Megatron
Try this:

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
 
Private Sub Form_Load()
    'Remove sizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION)
    'Remove minimizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), 2, MF_BYPOSITION)
End Sub

Minimizing should be changed to 3.
2 = Resizing
3 = Minimizing

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu _
As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
 
Private Declare Function GetSystemMenu Lib "user32" (ByVal _
hwnd As Long, ByVal bRevert As Long) As Long
 
Private Const MF_BYPOSITION = &H400&
 
Private Sub Form_Load()
    'Remove sizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), [b]2[/b], MF_BYPOSITION)
    'Remove minimizing
    Call RemoveMenu(GetSystemMenu(hwnd, 0), [b]3[/b], MF_BYPOSITION)
End Sub

[Megatron]

No it shouldn't.

Removing the size causes each menu to move down one level, then Minimize goes from 3 to 2.

[ric]

Thank you Megatron and Matthew.

[Matthew Gates]

Ah, I see Megatron. Wow, I didn't know that worked like that, very neat.

[Megatron]

If you removed the higher indexed menu first, then it'll work fine without the "push" effect.