MinButton & MaxButton

[Antonariy]

Пытаюсь отобразить сабжи на форме, где они выставлены в False:

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

    lRet = GetWindowLong(hwnd, GWL_STYLE)
    SetWindowLong hwnd, GWL_STYLE, lRet Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX

Не отображаются
Несмотря на то, что пример взят с сайта MS.

[keks-n]

Там надо сделать Update окна каким-то образом... Я делал через SetWindowRgn со вторым параметром 1, хоть это и криво.

[Antonariy]

Не помогло. Только xp-шный стиль слетел.

[keks-n]

Код почему-то начинает работать после клика по заголовку...
Также он вполне исправно работает в Form_Load...

[Antonariy]

UpdateWindow тоже не помогло (frm.Refresh пробовал до этого, разве не то же самое?). Из Form_Load вызывать нельзя:

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

    Select Case Sizable
        Case "sizable"   ': Set frm = New frmSizable
            Set frm = New frmFixed
            frm.BorderStyle = 2
            lRet = GetWindowLong(frm.hwnd, GWL_STYLE)
            SetWindowLong frm.hwnd, GWL_STYLE, lRet Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
        Case "fixed":    Set frm = New frmFixed
        Case "mdi":      Set frm = New MDIForm1
        Case "mdichild": Set frm = New frmMDIChild
    End Select

[GSerg]

If you have changed certain window data using SetWindowLong, you must call SetWindowPos to have the changes take effect. Use the following combination for uFlags: SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_FRAMECHANGED.

[Antonariy]

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

    Select Case Sizable
        Case "sizable"   ': Set frm = New frmSizable
            Set frm = New frmFixed
            frm.BorderStyle = 2
            lRet = GetWindowLong(frm.hwnd, GWL_STYLE)
            SetWindowLong frm.hwnd, GWL_STYLE, lRet Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
           
            SetWindowPos frm.hwnd, 0, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOZORDER Or SWP_FRAMECHANGED
        Case "fixed":    Set frm = New frmFixed
        Case "mdi":      Set frm = New MDIForm1
        Case "mdichild": Set frm = New frmMDIChild
    End Select

Все равно не работает.

[Antonariy]

Кстати в Form_Load тоже не работает.

[burik]

У меня работает с SendMessage

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


    lRet = GetWindowLong(hwnd, GWL_STYLE)
    SetWindowLong Me.hwnd, GWL_STYLE, lRet Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    ReleaseCapture
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&


P. S. Даже ReleaseCapture не надо:

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


    lRet = GetWindowLong(hwnd, GWL_STYLE)
    SetWindowLong Me.hwnd, GWL_STYLE, lRet Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&


[burik]

Кстати, щас реализовал это в своей проге. Для отображения достаточно просто изменить заголовок формы:

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


me.Caption = me.Caption


Или скрыть, а потом отобразить форму:

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


me.Hide
me.Show


[keks-n]

Вопрос по теме...
Я сабклассю WM_NCCALCSIZE(кто не знает - определение клиентской области окна). Вопрос - как его спровоцировать? Просто применяются новые настройки только при изменении размеров окна, причём не програмно.

[GSerg]

Вот в результате этого WM_NCCALCSIZE как раз и посылается.

[keks-n]

Я это уже пробовал(SWP_FRAMECHANGED), но оно не работало.