Problema con lCreate en CreateForm() usando FormFolder

[Carlos Ortiz]

Para los formularios que heredan de FrmFolder todo bien se soluciona con .t.
en el createform pero esto no sirve para formularios heredados de un nivel
mas.
El caso es que tenemos un TAbm que es un formulario base para los ABM ya que
son metodos comnunes a todos los abm, luego el TarticuloABM hereda de TAbm,
o sea queda
FrmFolder
TAbm
TArticuloABM
TClientesABM
etc.
para esta estructura no funciona el CreateForm(.T.) sugerido, tendrá
solución.

[jfgimenez]

Carlos,
> Para los formularios que heredan de FrmFolder todo bien se soluciona con
> .t. en el createform pero esto no sirve para formularios heredados de un
> nivel mas.
>
> El caso es que tenemos un TAbm que es un formulario base para los ABM ya
> que son metodos comnunes a todos los abm, luego el TarticuloABM hereda de
> TAbm, o sea queda
>
> FrmFolder
> TAbm
> TArticuloABM
> TClientesABM
> etc.
>
> para esta estructura no funciona el CreateForm(.T.) sugerido, tendrá
> solución.
Si tienes varios niveles de herencia de formularios, tienes que declarar y
pasar todos los parámetros en todos los métodos que sobrecargues. Si en
alguno de los niveles de herencia no pasas todos los parámetros, entonces te
puedes encontrar con problemas.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Carlos Ortiz]

Fui probando y va funcionando el tema del lCreate solo una duda, si lo
defini en Tabm como una propiedad puclica debería bastar para los otros
formularios que heredan de este y no pasa eso, tengo que entrar en cada ABM
de nive inferior y definirlo para que ande, luego lo saco y sigue
funcionando bién, eso es mas raro aún es como que algo queda guardado en
algun lado.
Muchas gracias y espero haberme dado a entender.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4b267cdb@svctag-j7w3v3j....]4b267cdb@svctag-j7w3v3j....[/email]
> Carlos,
>
>> Para los formularios que heredan de FrmFolder todo bien se soluciona con
>> .t. en el createform pero esto no sirve para formularios heredados de un
>> nivel mas.
>>
>> El caso es que tenemos un TAbm que es un formulario base para los ABM ya
>> que son metodos comnunes a todos los abm, luego el TarticuloABM hereda de
>> TAbm, o sea queda
>>
>> FrmFolder
>> TAbm
>> TArticuloABM
>> TClientesABM
>> etc.
>>
>> para esta estructura no funciona el CreateForm(.T.) sugerido, tendrá
>> solución.
>
> Si tienes varios niveles de herencia de formularios, tienes que declarar y
> pasar todos los parámetros en todos los métodos que sobrecargues. Si en
> alguno de los niveles de herencia no pasas todos los parámetros, entonces
> te puedes encontrar con problemas.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

[Carlos Ortiz]

Perdón ya entendi que pasa, cambia el contenido del xfm, los abri y tienen
esto distinto con respecto a los viejos
IF lCreate
::SetBounds( 316, 174, 678, 512 )
::SetClientSize( 670, 479 )
::cText := "Artículos"
::oFont := TFont():Create( "MS Sans Serif", 8, 0, 400 )
::OnInitialize := "FormInitialize"
::Create()
ENDIF
Super:CreateForm( .F. )
en los anteriores no está lCreate y demas cosas, gracias igual.
Salduos