Aún no he hecho ningún programa que tenga esta función pero es necesario aprender a hacerlo en principio, pues tiene que ver con el manejo de interfaces y como diseñar interfaces inteligentemente o cual es la mejor forma de visualizar la información para nuestro programa.
Les dejo aquí mi primera prueba sobre esta función que nos permite gambas, que trata de incrustar un formulario dentro de otro, un ejemplo profesional lo tenemos en la ide de gambas mismo con la ventana consola.
' gambas class file
Public Sub Form_Open()
CargarEnContenedor()
End
Public Sub Form_Show()
Me.x = 0
Me.y = 0
End
Public Sub btnSalir_Click()
If Not ventana.Parent Then
ColocarEnContenedor()
Else
SacarDeContenedor()
Endif
End
Public Sub ColocarEnContenedor()
'asignamos un nuevo contenedor a ventana
ventana.Reparent(PanContenedor, 0, 0)
ventana.Center 'centramos ventana
End
Public Sub SacarDeContenedor()
'quitamos la ventana de su contenedor por medio de null
ventana.Reparent(Null, 0, 0)
ventana.Center 'centramos el formulario en la pantalla
End
Public Sub CargarEnContenedor()
'cargamos un formulario x en un contendor x
ventana.Load(PanContenedor)
ventana.Show
End
Public Sub btnCargar_Click()
CargarEnContenedor()
End
Public Sub Form_Open()
CargarEnContenedor()
End
Public Sub Form_Show()
Me.x = 0
Me.y = 0
End
Public Sub btnSalir_Click()
If Not ventana.Parent Then
ColocarEnContenedor()
Else
SacarDeContenedor()
Endif
End
Public Sub ColocarEnContenedor()
'asignamos un nuevo contenedor a ventana
ventana.Reparent(PanContenedor, 0, 0)
ventana.Center 'centramos ventana
End
Public Sub SacarDeContenedor()
'quitamos la ventana de su contenedor por medio de null
ventana.Reparent(Null, 0, 0)
ventana.Center 'centramos el formulario en la pantalla
End
Public Sub CargarEnContenedor()
'cargamos un formulario x en un contendor x
ventana.Load(PanContenedor)
ventana.Show
End
Public Sub btnCargar_Click()
CargarEnContenedor()
End
Formulario secundario
' gambas class file
Public Sub btnSalir_Click()
If Not ventana.Parent Then Return
FMain.SacarDeContenedor
End
Public Sub btnEntrar_Click()
FMain.ColocarEnContenedor
End
Public Sub btnSalir_Click()
If Not ventana.Parent Then Return
FMain.SacarDeContenedor
End
Public Sub btnEntrar_Click()
FMain.ColocarEnContenedor
End
El proyecto esta en la Granja de gambas.