Как удалить прозрачность с окна?

[X-BOND]

То есть имеем окно, которому присвоена, допустим 50% прозрачность.
Как это окно вернуть к обычному состоянию?

[Amed]

Сейчас я кину в тебя файлом

Да и во всех вас тоже, впрочем... Я тут один модулёк зажал

[X-BOND]

Спасибо.
Методом от противного нашел простой способ:
SetWindowLong hWnd, GWL_EXSTYLE, 8

Но после этого некоторые элементы формы не прорисовались.
Как можно обновить форму через hWnd ?

[Amed]

Мне кажется, надо для КАЖДОГО элемента управления псать такой код, так как каждый (ИМХО) имеет свой собственный hWnd, прямо не зависящий от (!кажется!) hWnd матери-формы...

Как это сделать - "с налёта" не знаю Подождём ответа...

[GSerg]

С налёта предлагается начать копать в направлении enumwindows и enumchildwindows

[X-BOND]

Я нашел пример обновления окна
RedrawWindow(hwnd, ByVal 0&, ByVal 0&, 1)

Но это не действует на ToolBar формы. Собственно этот ToolBar единственный и не перерисовывается. А если пишу Form.Refresh то он вообще исчезает. Возвращается только после изменения размеров формы или перемещения формы по экрану.
Глюк, однако

[Amed]

2GSerg

Просю поподробнее

Просьба, конечно, не в тему, но MSDN у меня нет
А качать - инет медленный... Так что я вас потом на руках покачаю

[GSerg]

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

'in a form
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Me.AutoRedraw = True
    EnumChildWindows ТУТ ХВНД ИСКОМОГО ОКНА, AddressOf EnumChildProc, ByVal 0&
End Sub
'in a module
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    'Юзаем hwnd!!!
   
End Function

В Callback нам будут передаваться хэндлы окон. Юзаеем на них setlayeredwindowattributes и всё...

[Amed]

Спасибо