AnimateWindow

[dr.MIG]

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

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Const AW_CENTER = &H10
Const AW_ACTIVATE = &H20000
Const AW_HIDE = &H10000

Private Sub Form_Load()
AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_ACTIVATE
Me.Refresh
End Sub

Private Sub Form_Unload(Cancel As Integer)
AnimateWindow Me.hwnd, 1000, AW_CENTER Or AW_HIDE
End Sub


Как сделать так, чтобы во время разворачивания окна оно было стандартного серого цвета, а то до того как оно полностью развернётся его фон какой-то неопределённой окраски?

[tyomitch]

Судя по документации, придётся сабклассить и обрабатывать WM_PRINTCLIENT.

[dr.MIG]

WM_PRINTCLIENT це шо? Что-то я не могу нигде найти его описания...

[tyomitch]

А гугл на что? Описание тут - http://msdn.microsoft.com/library/en-us ... w_9mgk.asp