Escribir codigo en metodos agregados en tiempo de ejecucion

04/09/2004 - 21:05 por Luciano Robert | Informe spam
Hola Compañeros!

Tengo un Grid. En tiempo de diseño le agregue un control
Check en la columna 1.
Tengo un boton que realiza una consulta y el resultado lo
paso al Grid.
Cuando realizo la primera consulta se mantienen visible el
control Check1 y se puede interactuar con el, puesto que
escribi codigo en el metodo Cick() para que respondan al
Evento.
El problema es que al realizar una segunda consulta el
controle ya no se muestra ni tampoco esta en el Grid1, y
ya no responde a los eventos
¿Alguien puede decirme como lograr que cada vez que se
llene el Grid los controles no se pierdan?

Lo que he hecho es agregar en tiempo de ejecucion el
control con el siguiente codigo:

ThisForm.Grid1.Column1.AddObject('Check1','CHECKBOX')
ThisForm.Grid1.Column1.CurrentControl='Check1'
ThisForm.Grid1.Column1.Check1.Visible= .T.
ThisForm.Grid1.Column1.Check1.Caption=""
ThisForm.Grid1.Column1.Sparse= .F.

Asi siempre mantengo el control en el Grid, sin embargo,
no sé en donde tengo que escribir el codigo para que el
Control Check1, responda al evento Click, puesto que no
estan los metodos en tiempo de Diseño.

Espero que hayan entendido mi pregunta, en caso de que no
sea asi, por favor, diganme que no entienden.

De antemano, Muchas Gracias por su ayuda.

Atentamente
Luciano Robert
 

Leer las respuestas

#1 Alex Feldstein
05/09/2004 - 00:52 | Informe spam
On Sat, 4 Sep 2004 12:05:10 -0700, "Luciano Robert"
wrote:

Tengo un Grid. En tiempo de diseño le agregue un control
Check en la columna 1.
Tengo un boton que realiza una consulta y el resultado lo
paso al Grid.
Cuando realizo la primera consulta se mantienen visible el
control Check1 y se puede interactuar con el, puesto que
escribi codigo en el metodo Cick() para que respondan al
Evento.




Crea una subclase que tenga la funcionalidad que quieres. En lugar de
instanciar un objeto de clase base de VFP, instancialo de tu clase.


Alex Feldstein
________________________________
Microsoft Visual FoxPro MVP
Please respond in the public groups so that everybody
can benefit from the exchange.
Favor de responder en los foros públicos asi todos se benefician.
(Address scrambled with ROT-13)

Preguntas similares