In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Crear controles en tiempo de ejecucion.

Foro público de Xailer en español
Responder
edgar.barrera
Mensajes: 15
Registrado: Mié Ene 06, 2010 5:35 pm

Crear controles en tiempo de ejecucion.

Mensaje por edgar.barrera »

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.
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Crear controles en tiempo de ejecucion.

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder