Public Sub MakeChild(ByVal hWndChild As Long, ByVal hWndMDI As Long)

Public Sub MakeChild(ByVal hWndChild As Long, ByVal hWndMDI As Long)
  ' zunächst den Original-Fensterstil und Parent merken
  nOldStyle = GetWindowLong(hWndChild, GWL_EXSTYLE)
  nOldParent = GetParent(hWndChild)
 
  ' jetzt das Fenster zum ChildForm der MDIForm machen
  SetParent hWndChild, hWndMDI
  SetWindowLong hWndChild, GWL_EXSTYLE, WS_EX_MDICHILD Or WS_EX_WINDOWEDGE
End Sub

MakeChild frmChildWindow.hWnd, frmEigentuemer.hWnd

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co