Xailer & OZ Software

WITH OBJECT ::oBevel1 := TBevel():New( Self )
:SetBounds( 688, 98, 362, 190 )
:nClrPane := clActiveBorder
:lVisible := .F.
:lTransparent := .T.
:Create()
END
WITH OBJECT ::oBtnBmp1 := TBtnBmp():New( ::oBevel1 )
:SetBounds( 56, 24, 90, 25 )
:cText := "BtnBmp1"
:Create()
END
Tengo ese codigo en un .XFM
Pero quiero crear ese y otros controles en tiempo de ejecucion en un prg,
segun los vaya necesitando....
No tengo idea de como hacerlo.
Ayuda.

Edgar,
> Tengo ese codigo en un .XFM
> Pero quiero crear ese y otros controles en tiempo de ejecucion en un prg,
> segun los vaya necesitando....
>
>
> No tengo idea de como hacerlo.
Pues exactamente como está en el XFM. Sólo tienes que declarar los controles
como COMPONENT o como DATA en la clase, y poner el código de antes en el
evento que necesites. P.ej., si quieres que esos controles se creen al
pulsar en un botón, sólo tienes que poner ese código en el evento OnClick
del botón.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info