roger2005
25 de Agosto del 2005

soy nuevo en la programacionde clases. alguien sabe donde puedo encontrar ejemplos de creacion de clases, y si se puede depurar las clases. thanks

sgomez
25 de Agosto del 2005

Ejemplo de creacion y utilizacion de clase en tiempo de ejecucion.

mireloj=createobject("Reloj")
read events

DEFINE CLASS Reloj AS timer
interval = 1000
enabled=.T.
PROCEDURE init
messagebox("Inicializando timer")
ENDPROC
PROCEDURE Timer
? datetime()
ENDPROC
ENDDEFINE