FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
Hola Juliá, por fin he tenido tiempo para probar las modificaciones que me indicaste y trazando las mismas he conseguido averiguar que de una forma que no comprendo, el valor de una variable global al formulario que se pretende cerrar cambia su valor a cero.
Te comento mas en concreto, si recuerdas, al crear el formulario, dejo en una variable global a toda la aplicación el indice del array de clases donde está la clase que acabo de crear y ese formulario en el evento OnShow recoge ese valor y se lo asigna a una variable global solo al formulario. Toda la asignación es correcta y el valor es el indicado, pero cuando desde el formulario creado, se crea otro formulario,al volver del mismo, el valor de la variable ha pasado a cero (en el formulario creado desde el anterior no existe una variable con ese nombre, ni en ningún momento hace absolutamente nada con esa variable). Es muy raro. ¿Como es posible que una variable de un formulario cambie su valor por crear otro formulario?. ¿Se te ocurre algo?. Gracias. Un saludo. |
#22
|
|||
|
|||
es posible cuando, al cerrar el formulario, ya no existe ningun formulario que utilize la unidad en el uses de la unidad que contiene la variable.
ej unit1 uses .......; unit2 uses UnitGlobal.......; unit3 uses UnitGlobal.......; UnitGlobal Var VarGlobal; Si la unit2 o la unit3 estan abiertas, existirá la variable, cuando las cierres es muy posible que deje de tener el valor que tenia antes |
#23
|
||||
|
||||
Hola Juliá, gracias por contestar. La variable que pierde su valor en el formulario padre está declarada junto con la declaración de la variable formulario:
Código:
var formP: Tform; variable: integer; ...... procedure Button1Click(); begin //1.- creo el formulario hijo //2.- Hago hijo ShowModal //3.- LiberoPadre(variable); end; ...... En 2.- se muestra el 2 formulario Cuando cierro el formulario y llega a la línea 3, la variable ha pasado a valer cero y el acceso al array de pantallas no es correcto. Como ves se trata de una variable global solo al formulario y en ningún momento se cierra, solo se crea otro formulario, se muestra como Modal y al volver de él, la variable ha perdido su valor. Gracias Juliá |
#24
|
||||
|
||||
Ya he solucionado el problema de la modificación de la variable, utilizando en su lugar, el nombre del formulario a liberar. Pero ahora se me produce un error, que me plantea una pregunta.
Cuando desde un formulario, en un boton por ejemplo, se ejecuta la liberación del mismo, ¿que pasa con la línea siguiente a la liberación?. Me explico. En el procedimiento del botón (Ej: Botón Salir), en lugar de realizar form.close, se raliza lo siguiente: Código:
procedure TSelTerComp.Button3Click(Sender: TObject); begin inherited; LiberaPantalla('SelTerComp'); end;//(**) Código:
procedure LiberaPantalla(nom:string); var i: integer; a: boolean; begin a := false; i := 1; while not (a) and (i<25) do//25 es el tope de formularios begin if (pantalla[i]<>nil) then begin if (pantalla[i].Name = nom) then a := true else inc(i); end else inc(i); end; if (a) then//Lo ha encontrado begin if (pantalla[i]<>nil) then Pantalla[i].Close; if (pantalla[i]<>nil) then Pantalla[i].Free; if (pantalla[i]<>nil) then Pantalla[i] := nil; end; end; Gracias. Un saludo. |
#25
|
|||
|
|||
Me suena a que has vuelto al error del principio.
El código parece correcto incluso si el codigo de form padre en el que se ejecuta el button3 fuera incorrecto, fallaria antes ya que primero se ejecuta el código heredado. |
|
|
|