holla,
hoje eu criei um exemplo e funcionou bem, misturei com outros forms ftMDICHILD, ftNORMAL
Depois de você testar na sua aplicação, reporte o resultado, e coloque uma imagem.
Há alguns anos eu criei uma rotina para converter ftNORMAL para ftMDICHILD e abrir em FOLDERPAGE, mais simples que XAILER\SAMPLES\....
uso:
frmCliente() // original ftMDICHILD (designer)
frmCliente(.t.) // Modal
Código: Seleccionar todo
function frmCliente( lModal )
local oFrm
HB_Default(@lModal, .f.)
//oFrm:=LoadFrm( 'TFrmCliente' ) // <-- depois crie a sua lógica de verificação.
if oFrm # nil // <-- depois crie a sua lógica de verificação.
MsgInfo('Form in use: ' + oFrm:cText)
oFrm:setFocus()
elseif lModal
with object TFrmCliente()
:lModal:=.T.
:lCentered:=.t.
:New(Application:oActiveForm)
:ShowModal()
end with
else
with object TFrmCliente():New(Application:oMainForm)
:show()
end with
endif
return nil
XeviCOMAS escribió:Resulta que tengo un Formulario que lo utilizo en mi aplicación, y éste está "diseñado" en
nFormType ftMDICHILD
Bien, pues en alguna ocasión, veo necesario utilizar ese form, pero no como CHILD, sinó como un form independiente, Modal, por ejemplo.
Pues como veo en la ayuda de Xailer, nFormType... asignable solo en diseño.
Intento "diseñar" antes de crear al llamar el Form, pero no me funciona!!!