No voy mas me rindo...
Publicado por Carlos Restrepo (113 intervenciones) el 01/10/2003 17:50:57
Hola a todos
tengo un problema y es que mediante codigo he creado un form al cual le añado una etiqueta, una imagen y un boton
es decir, tengo esto:
MENSAJE = CREATEOBJECT('FORM')
MENSAJE.CLOSABLE = .T.
MENSAJE.AUTOCENTER=.T.
MENSAJE.MINBUTTON=.F.
MENSAJE.MAXBUTTON=.F.
MENSAJE.CAPTION='Mensaje Del Sistema'
MENSAJE.BORDERSTYLE=3
MENSAJE.HEIGHT=100
MENSAJE.ALWAYSONTOP=.T.
MENSAJE.ADDOBJECT('IMAGEN','ICONO')
MENSAJE.IMAGEN.VISIBLE=.T.
MENSAJE.ADDOBJECT('ETIQUETA','ETI')
MENSAJE.ETIQUETA.VISIBLE=.T.
MENSAJE.ADDOBJECT('ACEPTAR','BOTON1')
MENSAJE.ACEPTAR.VISIBLE=.T.
MENSAJE.SHOW
READ EVENTS
despues logicamente tengo la definicion de cada una de las clases, el problema es que la etiqueta toma la informacion que llega de una variable es decir si la variable dice 'hola', en el caption de la etiqueta va hola, pues bien todo funciona bien hasta ahi pero cuando voy a enviar otra cadena a la rutina esta no actualiza el label, cuando oprimo el boton ejecuto el clear events y borra el objeto cuando lo vuelvo a ejecutar con otros valores todo cambia menos la etiqueta que sigue conservando la cadena inicial, he probado con clear events cleas class clear object release mensaje para destruir el objeto y no funciona nada, el unico que funciona es el clear all pero no debo usarlo puesto que tengo unas variables publicas que se borrarian tambien.
espero ma haya explicado bien y si alguien sabe como puedo estrui dicho objeto y como liberar la memoria totalmente de ese objeto unicamente se lo agradecere
de antemano gracias
Carlos Restrepo
tengo un problema y es que mediante codigo he creado un form al cual le añado una etiqueta, una imagen y un boton
es decir, tengo esto:
MENSAJE = CREATEOBJECT('FORM')
MENSAJE.CLOSABLE = .T.
MENSAJE.AUTOCENTER=.T.
MENSAJE.MINBUTTON=.F.
MENSAJE.MAXBUTTON=.F.
MENSAJE.CAPTION='Mensaje Del Sistema'
MENSAJE.BORDERSTYLE=3
MENSAJE.HEIGHT=100
MENSAJE.ALWAYSONTOP=.T.
MENSAJE.ADDOBJECT('IMAGEN','ICONO')
MENSAJE.IMAGEN.VISIBLE=.T.
MENSAJE.ADDOBJECT('ETIQUETA','ETI')
MENSAJE.ETIQUETA.VISIBLE=.T.
MENSAJE.ADDOBJECT('ACEPTAR','BOTON1')
MENSAJE.ACEPTAR.VISIBLE=.T.
MENSAJE.SHOW
READ EVENTS
despues logicamente tengo la definicion de cada una de las clases, el problema es que la etiqueta toma la informacion que llega de una variable es decir si la variable dice 'hola', en el caption de la etiqueta va hola, pues bien todo funciona bien hasta ahi pero cuando voy a enviar otra cadena a la rutina esta no actualiza el label, cuando oprimo el boton ejecuto el clear events y borra el objeto cuando lo vuelvo a ejecutar con otros valores todo cambia menos la etiqueta que sigue conservando la cadena inicial, he probado con clear events cleas class clear object release mensaje para destruir el objeto y no funciona nada, el unico que funciona es el clear all pero no debo usarlo puesto que tengo unas variables publicas que se borrarian tambien.
espero ma haya explicado bien y si alguien sabe como puedo estrui dicho objeto y como liberar la memoria totalmente de ese objeto unicamente se lo agradecere
de antemano gracias
Carlos Restrepo
Valora esta pregunta
0