Xailer forum

Código: Seleccionar todo

   WITH OBJECT TFrmMoviments():New( self )
   :nFormType := ftNORMAL
   :Create()
   :nFormType := ftNORMAL  //ni antes ni después del Create()
   :ShowModal()
   END

Código: Seleccionar todo

WITH OBJECT TFrmMoviments()
   :nFormType := ftNORMAL
   :New( self )
   :ShowModal()
END

Código: Seleccionar todo

METHOD Menu1Item1Click( oSender, oMenu ) CLASS TForm1
/*
   WITH OBJECT TForm2()
      :nFormType := ftMDICHILD
      :New( Self )
      :Create()
      :nLeft := 0
      :nTop := 0
      :Show()
   END WITH
*/
   WITH OBJECT TForm2():New( Self )
      :nLeft := 0
      :nTop := 0
      :Create()
      :Show()
   END WITH

RETURN Nil

//------------------------------------------------------------------------------

METHOD Menu1Item2Click( oSender, oMenu ) CLASS TForm1
/*
   WITH OBJECT TForm2():New( Self )
      :Create()
      :ShowModal()
   END WITH
*/
   WITH OBJECT TForm2():New( Self )
      :nFormType := ftNORMAL
      :Create()
      :ShowModal()
   END WITH
RETURN Nil

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