Xailer & OZ Software

Cuando un formulario es creado, ¿se crean antes los objetos del
formulario y posteriormente las datas?
Si se intenta de esta manera que un objeto del formulario reciba su
valor a partir de una data del mismo formulario, el valor no es
asignado. Pongo un ejemplo de código:
// -------------------------------------------------------
CLASS FrmTest FROM TForm
COMPONENT oEdit
DATA cText
METHOD CreateForm()
METHOD oEditCreate( oSender )
ENDCLASS
METHOD oEditCreate( oSender ) CLASS FrmTest
oSender:Value := ::cText
RETURN Nil
// --------------------------------------------------------
Al formulario se le llama de esta manera:
FUNCTION FrmTestCreate()
LOCAL oFrm
WITH OBJECT oFrm:=FrmTest():CreateForm()
:cText:="Prueba"
:Show()
END WITH
RETURN NIL
Al crearse, el objeto TEdit del formulario carece de valor alguno. En
cambio, si en vez de utilizar una data, se utiliza una variable pública
por ejemplo, el valor si es asignado.

Ángel,
Orden de ejecución
1) Creación del formulario
2) Se ejecuta CreateForm() del formulario
3) Creación de los controles desde el propio CreateForm (a continuación se
dispara el OnCreate de cada control)
3) Se ejecuta OnInitialize() del formulario
En consecuencia, esto funciona:
CLASS TForm1 FROM TForm
DATA cPrueba INIT "prueba"
METHOD CreateForm()
METHOD Button1Create( oSender )
ENDCLASS
METHOD Button1Create( oSender ) CLASS TForm1
oSender:cText := ::cPrueba
RETURN Nil
Porque la data ::cPrueba se asigna en CreateForm() antes de la creación
cualquier control.
Ahora bien, si pretende asignar el valor de cPrueba una vez que el
formulario ha sido creado entonces no le funcionará. La solución más
sencilla es que asigne el valor de cPrueba en en línea o en el evento
OnCreate del formulario. Fijese que en el evento OnInitialize del formulario
ya es demasiado tarde.
Un saludo,
--
Ignacio Ortiz de Zúñiga
[Soporte Xailer]
[Xailer support]
"Ángel Fernández" <angel@agelso.com> escribió en el mensaje
news:[email=48db86d8@ozsrv2.ozlan.local...]48db86d8@ozsrv2.ozlan.local...[/email]
> Cuando un formulario es creado, ¿se crean antes los objetos del formulario
> y posteriormente las datas?
>
> Si se intenta de esta manera que un objeto del formulario reciba su valor
> a partir de una data del mismo formulario, el valor no es asignado. Pongo
> un ejemplo de código:
>
> // -------------------------------------------------------
> CLASS FrmTest FROM TForm
>
> COMPONENT oEdit
>
> DATA cText
>
> METHOD CreateForm()
> METHOD oEditCreate( oSender )
>
> ENDCLASS
>
> METHOD oEditCreate( oSender ) CLASS FrmTest
> oSender:Value := ::cText
> RETURN Nil
> // --------------------------------------------------------
>
> Al formulario se le llama de esta manera:
>
> FUNCTION FrmTestCreate()
> LOCAL oFrm
> WITH OBJECT oFrm:=FrmTest():CreateForm() :cText:="Prueba"
> :Show()
> END WITH
> RETURN NIL
>
> Al crearse, el objeto TEdit del formulario carece de valor alguno. En
> cambio, si en vez de utilizar una data, se utiliza una variable pública
> por ejemplo, el valor si es asignado.

Muchas gracias, sobre todo por la rapidez en contestar.
Un saludo