No pasa el dato de un form a otro

[Miguel Salas]

TFormDetFac():cFac := ::cFactura
TFormDetFac():New(Application)
TFormDetFac():showmodal()

// cFac vale nil


with object TFormDetFac()
:cFac := ::cFactura
:New(Application)
:showmodal()
end with

//cFac con valor valido

Alguna razón?

[ignacio]

Buenos días,

TFormDetFac():cFac := ::cFactura
TFormDetFac():New(Application)
TFormDetFac():showmodal()

- Estas tres instrucciones no son correctas, porque en ninguna de ellas está asignado el valor de retorno a una variable. ES DECIR, ESTA CREANDO TRES OBJETOS TFORM que además no se asignan a ninguna variable.
- La primera instrucción es además incorrecta porque está creando un objeto SIN LLAMAR A SU CONTRUCTOR y asignando una propiedad

1) Ha de crear el objeto asignandolo a una variable y por supuesto utilizando UN CONSTRUCTOR
2) Asigne las propiedades que desee del objeto
3) Ejecute su método Create()
4) Muestrelo con ShowModal()

Código: Seleccionar todo

oForm := TFormDetFac():New( oMainForm )
oForm:cFac := ::cFactura
oForm:Create()
oForm:ShowModal()

Saludos

[Miguel Salas]

Me queda claro, gracias un saludo