Xailer & OZ Software

Desde programa... me interesa en algunas ocasiones u otras que un Form sea CHILD o NORMAL...
Bien, pues si lo escribo en el método OnCreate del Form...
METHOD FormCreate( oSender ) CLASS TFrmRellotgeFitxador
....
/* según que condiciones...
::nFormType := ftMDICHILD
....
RETURN Nil
Esto no tiene ningún efecto y el tipo del Formulario siempre es según lo establezca en las propiedades del inspector de objetos del IDE.
Un Saludo,
Xevi.
--

Xevi,
Ese evento se dispará cuando ya se ha creado realmente la ventana, y me temo que Windows no permite cambiar el estilo de una ventana cuando ya está creada. Te recomiendo que simplemente crees dos tipos de ventanas.
Un saludo
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:457974aa$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Desde programa... me interesa en algunas ocasiones u otras que un Form sea CHILD o NORMAL...
Bien, pues si lo escribo en el método OnCreate del Form...
METHOD FormCreate( oSender ) CLASS TFrmRellotgeFitxador
...
/* según que condiciones...
::nFormType := ftMDICHILD
...
RETURN Nil
Esto no tiene ningún efecto y el tipo del Formulario siempre es según lo establezca en las propiedades del inspector de objetos del IDE.
Un Saludo,
Xevi.
--

Xevi,
Desde programa... me interesa en algunas ocasiones u otras que un Form sea CHILD o NORMAL...
Bien, pues si lo escribo en el método OnCreate del Form...
METHOD FormCreate( oSender ) CLASS TFrmRellotgeFitxador
...
/* según que condiciones...
::nFormType := ftMDICHILD
...
RETURN Nil
Esto no tiene ningún efecto y el tipo del Formulario siempre es según lo establezca en las propiedades del inspector de objetos del IDE.
El tipo de ventana no se puede cambiar durante la creación de la misma ni después. Si lo que necesitas es usar la misma ventana unas veces como mdichild y otras veces como ventana modal, puedes usar un truco: hazlo todo para usarla como mdichild, incluida la propiedad nFormType, y cuando la necesites modal asigna la propiedad lModal := .T. justo al instanciar el objeto y antes de que se carguen las propiedades:
WITH OBJECT TForm2()
:lModal := .T.
:New( ... )
:ShowModal()
END
--
Un saludo,
José F. Giménez
http://www.xailer.com
--