FoxPro/Visual FoxPro - como referirme a un "object" con una variable

Hola a todos...

Quisiera saber si es posible referirse a un Object por medio de una variable.

Ej.: para un Object llamado: Command1

en lugar de escribir Thisform.command1.setfocus

public m.Auxiliar as character

store command1 to m.Auxiliar

escribir Thisform.m.Auxiliar .setfocus

el problema que tengo es que me pone "miembro descoocido"

No se si esto es posible pero me vendria muy bien.

Gracias a todos!
Andres.

Puedes hacerlo con macrosustituciones
Ejemplo:
Tienes en un formulario el botón Command1 y en el Caption del mismo tienes la palabra: "Aceptar"
Mediante MESSAGEBOX vamos a mostrar el Caption del botón con macrosustitución.

LOCAL cCad1, cCad2

cCad1 = "Command1."
cCad2 = "Command1"

=MESSAGEBOX( THISFORM.&cCad1.Caption )
=MESSAGEBOX( THISFORM.&cCad2..Caption )

Puedes usar cualquiera de las 2 formas, sólo ten en cuenta que en la macrosustitución Visual FoxPro obvia un punto en la cadena referenciada, entonces puedes incluir el punto en el nombre de objeto (como en cCad1) ó puedes colocarlo en la línea de macrosustitución (como en cCad2)

La forma de referirse a un objeto es la siguiente

thisform.objeto.propiedad
thisform.objeto.metodo

mvariable= createobject('objeto')

if vartype('mvariabla')='O' esto lo que hace es preguntar si mvariable es un objeto

espero haberte ayudado

MAS CODIGO DE EJEMPLO, observa como de un vector saco el nombre que debe coincidir con el caption del objeto al cual hago referencia es decir
OBJETO:
THISFORM.PgFr.Pg1.Pagos.VALUE
VARIABLE REFERENCIADA POR MACROSUSTITUCION:
saVector{1,1] = 'Pagos' && tambien puede ser -> saVector [1,1] = 'Pagos.'
lcCampo = saVector[1,1]
THISFORM.PgFr.Pg1.&lcCampo..VALUE ó
THISFORM.PgFr.Pg1.&lcCampo.VALUE
*----------------------------------------------------------------------------------------------*
* mxCargarScoring.
*----------------------------------------------------------------------------------------------*
LOCAL lmDatos, lnLongit, lcCampo, lo, j, i
lo = CREATEOBJECT('Scoring') &&Objeto de una clase'
DECLARE saVector[1]
lo.omDefinirVector(@saVector, 1) &&metodo de la clase
lmDatos = ALLTRIM(XC02DSCR.mDatos) &&campo Memo
lnLongit = LEN(lmDatos)
FOR i = 1 TO lnLongit
&¯osustitucion
lcCampo = saVector[i, 5 ]
j = VAL(SUBSTR(lmDatos, i, 1))
j = IIF(j < 0 .OR. j > 3, 0, j)
IF i <= 12
THISFORM.PgFr.Pg1.&lcCampo..VALUE = j
ELSE
THISFORM.PgFr.Pg2.&lcCampo..VALUE = j
ENDIF
NEXT
*
espero haberte ayudado , creo que esto es a lo que te referias
SALUDOS
JULIO MIRANDA SALAZAR (JMS) AREQUIPA-PERU