FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Asignar valor a una prppiedad formulario hijo????
Hola a todos,
tengo un problema a la hora de pasar un TStrings entre un formulario padre y otro hijo. En el formulario hijo me he creado una Property y un método para acceder a ella. Código:
private { Private declarations } FScriptFinal:TStrings; procedure setScriptFinal(const Value:TStrings); public { Public declarations } property scriptFinal:TStrings write setScriptFinal; end; ..... procedure TForm1.setScriptFinal(const Value:TStrings); begin FScriptFinal.Assign(Value); end; Código:
... var ListaArticulosNew:TStrings; begin ListaArticulosNew := TStrings.Create; ... Form1.scriptFinal := ListaArticulosNew; ... Podrían ayudarme? Saludos y gracias |
#2
|
|||
|
|||
¿Has creado el Form1?
Código:
Form1.Create; |
#3
|
|||
|
|||
si, lo tengo incluido en el Auto-create Forms.
Saludos |
#4
|
||||
|
||||
... y en ese form ¿tienes en algun sitio la creación de FScriptFinal?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#5
|
||||
|
||||
Saludos |
#6
|
||||
|
||||
Cita:
// Saludos |
#7
|
|||
|
|||
Solo trataba de indicarle el primer fallo que se me había ocurrido. Supongo que te refieres a que antes de crear un form se debe comprobar que no fue creado anteriormente.
Este hilo no trata sobre como crear y mostrar formularios, por eso quizás fui demasiado escueto. Si he creado confusión a alguién, pido disculpas. Aunque ya veo que mguixot entendió lo que quería decirle. saludos. |
#8
|
||||
|
||||
Cita:
es decir, debe invocarse Create como método de la clase TForm1 y no como método del objeto Form1 que aun no existe. Dado que el hilo habla de violaciones de memoria, apunté lo anterior ya que crear el formulario como lo escribiste es un causal casi seguro de una excepción de este tipo. // Saludos |
#9
|
||||
|
||||
Código:
... var ListaArticulosNew:TStrings; begin ListaArticulosNew := TStrings.Create; ... Form1.scriptFinal := ListaArticulosNew; ... Saludos. |
|
|
|