FoxPro/Visual FoxPro - GENERAR EVENTOS POR CODIGO

Hola amigos del foro.

Estoy haciendo un proyecto en que permite identificar sitios en una cuidad mediante un mapa en un formulario. Tengo una base de datos que le asigno la posición en el mismo. Mediante el comando addobject
creo un boton en cada uno de los sitios que estan registrados en la BD.

Lo que me falta es que cuando le de click a cada uno de ellos me muestre los datos generales del sitio. Como hago para que a cada boton creado tambien por medio de codigo el le cree su procedimiento click event y me haga lo requerido.

Agradezco su colaboración

Alejandro

ejemplo:
ThisForm.Container1.AddObject("mibotoncitolindo","clsMiboton")
With miBotoncitoLindo
.IdSitio = tablaSitios.idsitio
EndWith

Donde clsMiboton es un boton que tu creas en una biblioteca de clases para el cual en el evento click verifica el valor de la propiedad idSitio (propiedad que tu le agregarás cuando lo crees) de alli en adenlante tu veras que es lo que quieres.
cualquier vaina escribeme.

Hola Fox Wiseman,

gracias por tus comentarios, pero no he podido hacer que me funcione el código mi ejemplo es el siguiente:

posx=coordx &&posición pixeles eje x
posy=coordy &&posición pixeles eje y
FOR i=1 TO 10 &&10 sitios
mb='b'+ALLTRIM(STR(i)) &&armando el sitio mb1..10
THISFORM.ADDOBJECT(mb,'commandbutton') &&creo el objeto
cc='THISFORM.'+mb+'.height =10' &&le asigno propiedades
&cc
cc='THISFORM.'+mb+'.width = 10'
&cc
cc='THISFORM.'+mb+'.visible = .T.'
&cc
cc='THISFORM.'+mb+'.Top ='+STR(posx)
&cc
cc='THISFORM.'+mb+'.Left ='+STR(posy)
&cc
cc='THISFORM.'+mb+'.backcolor=RGB(255,0,0)'
&cc

WITH mb .click
ENDWITH
NEXT

Hola Fox Wiseman,

gracias por tus comentarios, pero no he podido hacer que me funcione el código mi ejemplo es el siguiente:

posx=coordx &&posición pixeles eje x
posy=coordy &&posición pixeles eje y
FOR i=1 TO 10 &&10 sitios
mb='b'+ALLTRIM(STR(i)) &&armando el sitio mb1..10
THISFORM.ADDOBJECT(mb,'commandbutton') &&creo el objeto
cc='THISFORM.'+mb+'.height =10' &&le asigno propiedades
&cc
cc='THISFORM.'+mb+'.width = 10'
&cc
cc='THISFORM.'+mb+'.visible = .T.'
&cc
cc='THISFORM.'+mb+'.Top ='+STR(posx)
&cc
cc='THISFORM.'+mb+'.Left ='+STR(posy)
&cc
cc='THISFORM.'+mb+'.backcolor=RGB(255,0,0)'
&cc

WITH objeto creado pero no me funciona (mb ni &mb)
aca deben estar datos del sitio cuando de click
ENDWITH
NEXT

agradezco que lo observes puesto que es lo único que me falta por completar en mi proyecto.

Muchas gracias por tu colaboración.

Alejandro

ejemplo:
ThisForm.Container1.AddObject("mibotoncitolindo","clsMiboton")
With miBotoncitoLindo
.IdSitio = tablaSitios.idsitio
EndWith

Donde clsMiboton es un boton que tu creas en una biblioteca de clases para el cual en el evento click verifica el valor de la propiedad idSitio (propiedad que tu le agregarás cuando lo crees) de alli en adenlante tu veras que es lo que quieres.
cualquier vaina escribeme.