Como cambiar propiedades de un label desde otro prg
Como cambiar propiedades de un label desde otro prg
Hola Foro,
Vendo dando vueltas para poder acceder a las propiedades de un oLabel de un form, desde un PRG que contiene solamente una serie de funciones.
En concreto lo que pretendo hacer es que el Label se vea o no se vea según cierta condición que se controla en el PRG
¿Cual es la sintaxis que debo usar? he probado de todo pero ninguna forma me funciona.
Desde ya muchas gracias.
Daniel
Vendo dando vueltas para poder acceder a las propiedades de un oLabel de un form, desde un PRG que contiene solamente una serie de funciones.
En concreto lo que pretendo hacer es que el Label se vea o no se vea según cierta condición que se controla en el PRG
¿Cual es la sintaxis que debo usar? he probado de todo pero ninguna forma me funciona.
Desde ya muchas gracias.
Daniel
Re: Como cambiar propiedades de un label desde otro prg
Eric
Muchas gracias por su ayuda.
En mi caso el Form fue creado desde el IDE de Xailer, ¿como se obtiene el objeto de dicho Form?
Gracias
Un saludo
Muchas gracias por su ayuda.
En mi caso el Form fue creado desde el IDE de Xailer, ¿como se obtiene el objeto de dicho Form?
Gracias
Un saludo
Re: Como cambiar propiedades de un label desde otro prg
eu não sei como esta organizado o seu código/funções.
O Form (com o label) esta aberto?
Exibindo o título e nome da classe de todos os forms abertos:
procurar o object do Form:
O Form (com o label) esta aberto?
Exibindo o título e nome da classe de todos os forms abertos:
Código: Seleccionar todo
AEVAL( application:aForms, {|o| LOGDEBUG(o:cText, o:classname) } )
Código: Seleccionar todo
cFormName:='?????'
if (nPos:=ASCAN( application:aForms, {|o|lower(o:classname) == lower(cFormName)} )) > 0
application:aForms[nPos]:oLabel???:lVisible:=.t. // .f.
endif
Re: Como cambiar propiedades de un label desde otro prg
Muchas gracias por enseñarme eso, lo desconocía.
Sabiendo eso y la sugerencia anterior, se me ocurrió hacer esto:
1) Declaré una variable pública llamada oForm1 y utilicé el evento on initialize del Form para asignarla.
METHOD FormInitialize( oSender ) CLASS TForm1
oForm1 := oSender
RETURN Nil
2) Luego en el PRG que contiene la serie de funciones pude hacer esto:
oForm1:oLabel1:lVisible := .T.
No se si es 100% correcta esa manera de hacerlo, pero funcionó.
Muchas gracias
Un Saludo
Sabiendo eso y la sugerencia anterior, se me ocurrió hacer esto:
1) Declaré una variable pública llamada oForm1 y utilicé el evento on initialize del Form para asignarla.
METHOD FormInitialize( oSender ) CLASS TForm1
oForm1 := oSender
RETURN Nil
2) Luego en el PRG que contiene la serie de funciones pude hacer esto:
oForm1:oLabel1:lVisible := .T.
No se si es 100% correcta esa manera de hacerlo, pero funcionó.
Muchas gracias
Un Saludo
Re: Como cambiar propiedades de un label desde otro prg
Se o form correto estiver ativo, no seu PRG de funções use:
neste caso prefira self:
Código: Seleccionar todo
with object application:oActiveForm
:oLabel:lVisible:=.t.
end with
neste caso prefira self:
Código: Seleccionar todo
METHOD FormInitialize( oSender ) CLASS TForm1
oForm1 := self
RETURN Nil
Re: Como cambiar propiedades de un label desde otro prg
He aprendido algo nuevo y me ha quedado claro.
Muchas gracias por su tiempo y ayuda
Un Saludo
Muchas gracias por su tiempo y ayuda
Un Saludo