Как убрать кропку Resize с формы ?

[Shurik90]

Подскажите, как сделать чтобы кнопки Resize, которая между Close и Minimize либо не было вообще, либо чтобы она была Disabled. Может кто знает как ?

[Hitler]

Свойство MaxButton у формы.

[Shurik90]

Огоромное спасибо!
А как мне поймать клик на кнопку Minimize ? Т.е. Чтобы при её нажатии что-то происходило ?

[MEMBER]

Form_Resize

[Shurik90]

Не, я имел в виду что-то типа такого :

if Click = Form1.MinimizeButtonClick Then ...

В таком роде кто нибубь знает ?

[Алекс]

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

If form1.WindowState=minimized then.......


Примерно так [/code]

[Shurik90]

Не работат ! Написал такой код :

Private Sub Form_Resize()
If frmMain.WindowState = minimized Then MsgBox "Min"
End Sub

Так он мне сообщение "Мин" выдаёт 4 раза в начале, когда я запускаю, когда сворачиваю не выдаёт ни чего, а когда разворачиваю снова выдаёт сообщение.

А надо чтобы выдал только один раз при сворачивании.
Что делать ?

[MEMBER]

Private Sub Form_Resize()
Dim wState As Integer
wState = Me.Windowstate
MsgBox (wState)
End Sub

Checkай, отрок.

[Алекс]

Сорри...
If FrmMain.windowstate=1 then msgbox("Всё ОК")

[Shurik90]

Всем большое спасибо. Всё ОК.