API SetParent crear efecto MDIForm es posible?

[KingColt]

Utilizo la API SetParent para trabajar con formularios dentro de otro sin necesidad de utilizar un MDI como contenedor

modulo bas

Código:

'Declaración de SetParent
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

form1 que contendra al form2

Código:

Private Sub Command1_Click()
  Dim res As Long
  res = SetParent(Form2.hWnd, Form1.hWnd)
  Form2.Show
End Sub

El problema es cuando maximizo mi form2 se muestra de esta manera


Es posible lograr el efecto que se produce con los mdiform es decir que se muestre de esta manera

[Txoco]

Qué tal?

En principio no es posible, por eso VB tiene un formulario específico para MDI. Fíjate que utilizando SetParent tampoco salen las scrollbars si un formulario hijo se sale del area.

Es posible que utilizando la API SetWindowLong puedas configurar todas las propiedades necesarias para lo que quieres, pero tampoco te garantizo que funcione, ya que hay ciertas propiedades que sólo se pueden establecer en el momento de crear la ventana (la lógica interna del propio Windows impone que sea así), y todo eso VB lo hace de forma automática cuando añades un form al proyecto.

También puedes trabajarte un work-around de forma que el form hijo se "auto-quite" el borde al maximizarse y el form que hace de padre se "auto-active" los botones para simular el efecto que quieres, pero no creo que el esfuerzo compense...