Показать сообщение отдельно
Старый 07.03.2008, 19:51     # 13
Nerey_ser
Junior Member
 
Аватар для Nerey_ser
 
Регистрация: 30.03.2006
Адрес: Беларусь
Сообщения: 79

Nerey_ser Путь к славе только начался
Код:
Public Sub StickWindow(ParentWindow As Long, ChildWindow As Long, Optional ByVal NoActivate As Boolean = True, Optional ByVal NoShow As Boolean = False)
  Dim Style As Long
  
  Style = GetWindowLong(ChildWindow, GWL_STYLE)
  Style = Style Or WS_CHILD
  SetWindowLong ChildWindow, GWL_STYLE, Style
  
  SetParent ChildWindow, ParentWindow
  SetWindowLong ChildWindow, GWL_HWNDPARENT, ParentWindow
  
  Style = SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE
  
  If NoActivate Then Style = Style Or SWP_NOACTIVATE
  If Not NoShow Then Style = Style Or SWP_SHOWWINDOW
  SetWindowPos ChildWindow, _
    HWND_TOP, 0&, 0&, 100, 100, _
    Style
End Sub
Вот это код на VB. Что он делает: делает чужое окно дочерним к нужному, т.е. "цепляет" его и делает частью.
Объявления функции тоже могу выковырять, но, опять же, на VB.

А вообще, лучше оращаться на форумы, посвященные программированию
sflash, не обижайся, но WM_MOUSE_DOWN - опускание кнопки мыши, а WM_MOUSE_RIGHT вообще такого не знаю.
__________________
Дай человеку рыбу - он будет сыт один день. Научи человека рыбачить - он будет сыт всю жизнь.
Nerey_ser вне форума