如何使窗体不响应双击标题栏事件但又有最小化按钮？

[Fanks]

设计时无论将窗体拖至最大，还是设为最大化，运行期间只要双击标题栏，窗体大小均要发生变化，设置为固定边框又没有最小化按钮，请问如何解决？

[Fanks]

感谢巴顿，但仍然未起作用。

[yangsiming]

把maxbutton属性设为false

[Mike_sun]

style->sizable
maxbutton->false

[royvb]

到底是要有最小化窗口，还是不要，如果不要最小化应该是把MINBUTTON设为FALSE!

[Fanks]

运行时窗口处于最大化状态，要求双击标题栏时不能发生还原，但还要保留最小化按钮。

[Bardo]

Option Explicit

Private Declare Function DeleteMenu 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 RemoveMenus(frm As Form, _
remove_restore As Boolean, _
remove_move As Boolean, _
remove_size As Boolean, _
remove_minimize As Boolean, _
remove_maximize As Boolean, _
remove_seperator As Boolean, _
remove_close As Boolean)
Dim hMenu As Long

' Get the form's system menu handle.
hMenu = GetSystemMenu(hwnd, False)

If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION
If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION
If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION
If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION
If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION
If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION
End Sub

Private Sub Form_Load()

Me.Width = 8000
Me.Height = 6000

' Remove the Close system menu item and the
' menu separator.
RemoveMenus Me, False, False, True, False, True, True, True

End Sub

[dbcontrols]

这种办法最大化也不好用了

[tigerfox]

最好用截掉此消息