crear cuadro de dialogo desde prg
Publicado por santiago (551 intervenciones) el 12/03/2018 01:55:21
Hola buenas noches, todos tenemos un prg desde donde cargamos parámetros y lanzamos nuestro formulario principal, mi problema es crear un cuadro de texto (textbox) desde dicho prg y no desde el formulario, este cuadro de texto debe recibir información alfanumérico.
mis avances son los siguientes.
*PUBLIC goForm
*goForm=CREATEOBJECT("MiForm")
*goForm.SHOW
*DEFINE CLASS MiForm AS FORM
*AUTOCENTER=.t.
*NAME="MiForm"
*CAPTION="Ejemplo"
*ADD OBJECT MIlabel AS LABEL WITH;
*LEFT=10,TOP=10,AUTOSIZE=.T.;
*NAME='MiLabel',CAPTION='CODIGO'
*ADD OBJECT MITEXT AS TEXTBOX WITH;
*LEFT=60,TOP=10,HEIGHT=25,WIDTH=100;
*NAME='MiText',VALUE=0
*ENDDEFINE
*CREATE CLASS cuadro1 OF cuadros AS TEXTBOX
*ADD OBJECT MIlabel AS LABEL WITH LEFT=10,TOP=10,AUTOSIZE=.T.,NAME='MiLabel',CAPTION='CODIGO'
*ADD OBJECT MITEXT AS TEXTBOX WITH LEFT=60,TOP=10,HEIGHT=25,WIDTH=100,NAME='MiText',VALUE=0
los primeros 3 bloques me generan el cuadro de texto, pero dentro de un formulario y eso no se desea, se desea que se haga desde el prg antes de lanzar el formulario principal.
el ultimo bloque es un intento incompleto de crear la clase y dispararla desde el prg, obviamente faltan cosas allí.
Alguna solución a este problema?
desde ya muy agradecido.
mis avances son los siguientes.
*PUBLIC goForm
*goForm=CREATEOBJECT("MiForm")
*goForm.SHOW
*DEFINE CLASS MiForm AS FORM
*AUTOCENTER=.t.
*NAME="MiForm"
*CAPTION="Ejemplo"
*ADD OBJECT MIlabel AS LABEL WITH;
*LEFT=10,TOP=10,AUTOSIZE=.T.;
*NAME='MiLabel',CAPTION='CODIGO'
*ADD OBJECT MITEXT AS TEXTBOX WITH;
*LEFT=60,TOP=10,HEIGHT=25,WIDTH=100;
*NAME='MiText',VALUE=0
*ENDDEFINE
*CREATE CLASS cuadro1 OF cuadros AS TEXTBOX
*ADD OBJECT MIlabel AS LABEL WITH LEFT=10,TOP=10,AUTOSIZE=.T.,NAME='MiLabel',CAPTION='CODIGO'
*ADD OBJECT MITEXT AS TEXTBOX WITH LEFT=60,TOP=10,HEIGHT=25,WIDTH=100,NAME='MiText',VALUE=0
los primeros 3 bloques me generan el cuadro de texto, pero dentro de un formulario y eso no se desea, se desea que se haga desde el prg antes de lanzar el formulario principal.
el ultimo bloque es un intento incompleto de crear la clase y dispararla desde el prg, obviamente faltan cosas allí.
Alguna solución a este problema?
desde ya muy agradecido.
Valora esta pregunta
0
