OT: With Object anidados

[jose.luis]

Hola,
Tengo una duda sobre el uso de With Object de la cual no he obtenido
respuesta buscando por google y por xharbour
Si tengo dos With Object anidados... ¿como puedo referenciar al WITH OBJECT
superior?
Dicho de forma más gráfica:
WITH OBJECT ::oButton1
WIHT OBJECT ::oButton2
:cText := "Valor para el botón 2"
:cText := propiedad cText de obutton1 // ::oButton1:cText
END
END
Se que podría poner directamente
WITH OBJECT ::oButton1
WIHT OBJECT ::oButton2
:cText := "Valor para el botón 2"
:cText := ::oButton1:cText //propiedad cText de obutton1
END
END
Pero creo que puede haber alguna otra manera...
Quizás con HB_QWith( -1 ) o no se que...
WITH OBJECT ::oButton1
WIHT OBJECT ::oButton2
:cText := "Valor para el botón 2"
:cText := HB_QWith( -1 ):cText //propiedad cText de obutton1
END
END
Bueno... eso.
Saludos y gracias,
José Luis Capel

[Yamil Bracho]

Jose Luis, creo que tienes que indicarle el objeto al que te vas a "suichear"
Seria algo como
HB_SetWith( ::oButton1 )
cText := HB_QWith():cText // cText de oButton1
No lo he probado aun...
"José Luis Capel" <jose.luis@iaicom.com> wrote:
>Hola,
>
>Tengo una duda sobre el uso de With Object de la cual no he obtenido
>respuesta buscando por google y por xharbour
>
>Si tengo dos With Object anidados... ¿como puedo referenciar al WITH OBJECT
>superior?
>
>Dicho de forma más gráfica:
>
>WITH OBJECT ::oButton1
> WIHT OBJECT ::oButton2
> :cText := "Valor para el botón 2"
> :cText := propiedad cText de obutton1 // ::oButton1:cText
> END
>END
>
>Se que podría poner directamente
>
>WITH OBJECT ::oButton1
> WIHT OBJECT ::oButton2
> :cText := "Valor para el botón 2"
> :cText := ::oButton1:cText //propiedad cText de obutton1
> END
>END
>Pero creo que puede haber alguna otra manera...
>
>Quizás con HB_QWith( -1 ) o no se que...
>
>WITH OBJECT ::oButton1
> WIHT OBJECT ::oButton2
> :cText := "Valor para el botón 2"
> :cText := HB_QWith( -1 ):cText //propiedad cText de obutton1
> END
>END
>
>
>Bueno... eso.
>Saludos y gracias,
>José Luis Capel
>
>

[jose.luis]

Yamil,
> Jose Luis, creo que tienes que indicarle el objeto al que te vas a
> "suichear"
>
> Seria algo como
> HB_SetWith( ::oButton1 )
> cText := HB_QWith():cText // cText de oButton1
>
> No lo he probado aun...
Gracias!! Voy a probarlo.
Saludos,
José Luis Capel