What is Wrong (MDI)

[fdelpuerto]

Hi, can anybody help me

I have a project with

- MDI form
- Childform1 with treeview and listview controls
- Childfrorm2....3....4....5....6.....etc.

The Childform1 must be always on top and with WindowState=vbMaximized,
but when I show any other Child form, Childform1 is minimized.

Can anybody tell me how fix it

[Hack]

This will toggle on top/not on top

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long,  ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
 
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
 
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) As Long
  On Error Goto ErrRtn
   If (Topmost) Then
      SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
   Else
      SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
      SetTopMostWindow = False
   End If
   Exit Function
ErrRtn:
MsgBox "Error in SetTopMostWindow " & Err & " " & Error, vbExclamation + vbOKCancel
End Function
 
'In Form Load Event, put...
'To Make Always On Top
SetTopMostWindow Me.hwnd, TRUE
 
'(SetTopMostWindow Me.hwnd, FALSE would prevent window from being TopMost)