|
problema con formularios al volver abrirlo
Hola a todos
vean este código: : en el evento OnClose del formulario
ah una cosa mas el formulario tiene las siguientes propiedades: Aling : alClient borderStyle: bsNone formStyle: fsNormal bueno esto sucede con todos los formulario cuando los cierro al parecer nos los libera, y cuando los vuelvo a abrir me manda el error. Favor ayudenme.... Saludos novato_erick |
---------------------------
Debugger Exception Notification --------------------------- Project Inventarios.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. --------------------------- Break Continue Help --------------------------- Este es el error que me envia |
seria un poco mas facil de entender si es que mencionas el error que te aparece
|
Creo que olvidaste decir cuál es el error. Por otro lado no me queda claro el sentido de tu código. ¿Por qué mandas destruir el formulario cuando frmVendedores <> nil?
// Saludos |
[quote=novato_erick;407437]
Código Delphi [-] procedure TFrmPrincipal.aNuevoExecute(Sender: TObject); begin if frmVendedores{FrmArticulos} = nil then begin FrmVendedores := TfrmVendedores.create(FrmVendedores); FrmVendedores.Parent := FrmPrincipal.Panel4; FrmVendedores.Caption := 'Vendedores'; FrmVendedores.Show; FrmPrincipal.TabSet1.Tabs.add(FrmVendedores.Caption); FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1; dmacceso.cdsVendedores.open; dmacceso.cdsVendedores.Insert; end end; Código Delphi [-] Pruebalo asi...en el Evento OnDestroy coloca
|
oscarac
Me funciono la modificación que me sugeriste ahora puedo cerrar y abrir tranquilamente mi formulario Gracias Primero que Nada... Sin embargo que pudo observar el cual me daba problema el código que cree?. Me serviría de algo una retro alimentación. Saludos... |
roman
Creo que fue lo que hizo oscarac simplemente eliminar el
Sin embargo "En Teoría" Según la Cara oculta de Delphi y otros textos, los eventos de cierre de formulario se realizan en el evento OnClose, no en OnDestroy.. Aun no estoy muy claro en eso. Saludos |
lo que esta mas abajo, fue una respuesta de roman alla por el año 2003
y cito... El método Free no debe llamarse desde el formulario. En su lugar debe usarse Release ya que este método se encarga de esperar a que termine cualquier evento que esté procesando el formulario y sólo entonces llama a Free. En cuanto a Action := caFree es exactamente lo mismo que Release. Si revisas el código fuente de la unidad Forms.pas notarás que el método Close del formulario llama al evento OnClose y cuando este último regresa, Close verifica el parámetro Action. Si Action es igual a caFree entonces Close llama al método Release. // Saludos |
Agradezco mucho tu aclaración oscarac. Me ah ayudado muchisimo.
//Saludos |
aqui te dejo un enlace para que entiendas un poquito mas... yo tenia las mismas dudas
|
Eso mismo me paso a mi, esos procedimientos son los que yo utilizaba sin embargo me daban el mismo problema como vez llama free desde el mismo formulario.
Sin embargo desde el link que me enviastes me tome el rato de leerlo todo, y al final la misma duda que tengo desde un principio, La manera adecuada de cerrar un formulario si utilizo el evento OnDestroy me traiga problemas posteriores? ya que recomiendan la mayoría es utilizar el evento OnClose. //Saludos |
Esto me sucede también por ejemplo:
enviandome este error: --------------------------- Debugger Exception Notification --------------------------- Project Inventarios.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'. --------------------------- Break Continue Help --------------------------- en en evento onClick del btnCancelar también me envia dicho error. Saludos y gracias... |
tengo entendido que no puedes hacerle free, porque si tu haces una depuracion, el flujo del programa aun continua dentro del formulario
lo mas razonable (al menos lo que he entendido es hacer lo siguiente) En OnClose Action := caFree; en Destroy frmloquesea := Nil; en tu ejemplo en logar de colocar frmcliente.free debes colocar Close; para que el flujo derive al evento correspondiente salvo alguien tenga una mejor sugerencia |
Correcto oscarac.
O también, como te dijo oscarac más arriba, hacer:
Saludos. |
Gracias ecfisa y oscara ya comprendo mucho mejor la creacion y cierre de formmularios correctamente. aunque me veo con intriga los comportamiento que he encontrado en mi aplicacion, ejemplo:
el formulario frmVendedores he realizado el cierre con el evento OnClose poniendo Action := caFree; sin ningun problema lo abro y lo cierro e incluso liberando todos los objetos dentro del formulario. pero en el frmCliente no sucede lo mismo Usando el evento OnClose ya que al volverlo a llamar no hace nada y he tenido que recurrir al evento OnDestroy frmCliente := nil sin embargo al abrirlo nuevamente me dice que tengo un campo de mi dataset que con un valor nulo significa que el evento OnDistroy no me cierra totalmente el formulario.... En pocas palabras no entiendo de dichos comportamientos... |
Hola.
Cita:
Saludos. |
---------------------------
Debugger Exception Notification --------------------------- Project Inventarios.exe raised exception class EDatabaseError with message 'Field 'CEDULA' must have a value'. --------------------------- Break Continue Help --------------------------- |
y la primera vez que abres el form no te manda el error?
|
Hola.
Por lo que dice el error, en algún punto (puede ser al salir del form) estas intentando guardar un registro, en el cuál 'CEDULA' es un campo requerido y no tiene valor asignado. Saludos. |
exacto oscarca a la primera vez que abro el form no me manda ese error.
Saludos |
| La franja horaria es GMT +2. Ahora son las 01:23:48. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi