FoxPro/Visual FoxPro - ESTABLECER EL EVENTO CLICK A UN OBJETO CREADO POR

Hola amigos del foro,

Tengo un inconveniente, por código hecreado varios container o botones, pero despues de creados al darle click debe ejecutar algo.
Como hago cuando le de click a cada objeto el me realice algo.

Este es mi cñodigo:

posx=5
posy=5
obj=''
FOR i=1 TO 10
obj='b'+ALLTRIM(STR(i))
posx=posx+5
posy=posy+5
THISFORM.ADDOBJECT(obj,'container')
cc='THISFORM.'+obj
WITH &cc
.HEIGHT =10
.WIDTH=10
.VISIBLE=.T.
.TOP=posx
.LEFT=posx
.BACKCOLOR=RGB(255,0,0)
<donde configuro el click>
ENDWITH
NEXT

hola alejandro, en verdad no tengo una respuesta adecuada para tu pregunta.No se como configurar un evento en tiempo de ejecución, pero lo que te puede ser util es crear una clase en la cual pongas un objeto del tipo container con el código que quieras en el click y luego cuando hagas addobject uses el que has creado, debería funcionar.
Espero haberte sido de ayuda.

Es mul fácil:

Debes definir tus clases de esta forma:

DEFINE CLASS Title AS Label
Visible = .T.
Height = 96
Width = 640
Top = _Screen.Height / 2
Left = 25
Caption = "Aplicación"
ForeColor = RGB ( 192,192,192 )
BackStyle = 0 && Transparent
FontName = "Tahoma"
FontSize = 60
Procedure click()
*codigo para el clic de la etiqueta
ENDDEFINE

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click()
*código para clic del commandbutton
ENDPROC
ENDDEFINE

--devilzito--