Forms y Frames

[[Lepe]]

Problemas no hay ninguno mientras no solapes las 2 creaciones del objeto.
Esto es inaceptable:

Código Delphi [-]
procedure TFrameCamAlt.BtnSalirClick(Sender: TObject);
begin
  FrameCamAlt.Free;
end;

Porque desde una clase TFRameCamAlt, estas intentando liberar la memoria del objeto que lo instancia.

Imagina un código así:

Código Delphi [-]
var x:TFrameCamAlt;
begin 
  x := TFrameCamalt.Create(nil);

end;

Cuando el usuario pulse el botón salir, se querrá liberar la variable FrameCamAlt que sabe dios si está creada o no.

La solución a tu problema, desde mi punto de vista, es crear al frame un evento OnSalir, cuando el usuario pulsa el botón salir, se lanza ese evento, que lo recoge la ventana donde se creó el Frame, y desde allí se destruye el Frame. Resultará complejo, pero deberías hacerlo así:


Definición del Frame:

Código Delphi [-]
TFrameCamAlt = class(Tframe)
...
private 
   FOnSalir : TnotifyEvent;
public
   property OnSalir:TnotifyEvent read FOnSalir write FOnSalir;
end;

implementation

procedure TFrameCamAlt.BtnSalirclick(....);
begin
  if Assigned(FOnSalir) then FOnSalir(Self);
end;

Ahora la ventana donde quieres incluir el frame en ejecución:

Código Delphi [-]
TForm1 = class (TForm);
...
private 
    CamAlt : TFRameCamAlt;
    procedure RecibeEventoSalir(Sender:TObject);
....

implementation

procedure Tform1.FormCreate(...); supongo que creas el frame al crear el Form
begin
   CamAlt := TFRameCamAlt.Create(nil);
   CamAlt.OnSalir := RecibeEventoSalir;
end;

procedure TForm1.RecibeEventoSalir(Sender:TObject);  
begin
  FreeAndNil(CamAlt);
end;

Aquí está el detalle importante: La misma ventana que crea el frame es el que lo destruye. Además evitas dolores de cabeza, muy típico cuando depuras un programa: "El frame se crea en el form1... pero ¿donde se destruye? ahhh ... siii, en el Form25 cuando se pulsa el boton XXX"... demasiado lío compañero.


Saludos

[[Chris]]

No sé si para la plataforma Net exista una componente llamado TNotebook que en delphi 7 se dencuentra en la paleta win 3.1, es algo antiguo y por eso no estoy seguro. Si no exite todavía podrías utilizar el TpageControl y en cada página colocar un frame (modulo) distinto y cambiar la página activa como PageControl1.activepage := X

con esta forma te evitarás el enorme trabajo de estar ocultado y mostrando los frames. El PageControl lo puedes personalizar para no mostrar las ventanas, aún así yo en lo personal prefiero utilizar el TNoteBook porque obtengo una mejor apariencia, y creo que sería la mejor para tí. El problema con el PageControl es que a pesar de ocultar las pestañas, este se muestra de un forma 3D, que creo que no haría uniformidad con tu aplicación. Puedes buscar alternativas en internet.

La mejor alternativa que conozco es un componente que creo que se llama TNoteoBookForm o algo por el estilo, es del paquete LM Tools, tienen un paquete gratuito y otro comercial, talvez el componente que te mensiono sea parte del gratuito. Te aseguro que sería lo mejor que puedes obtener para tu apliación ya que carga formularios en páginas de un NoteBook. de esta formar ahorraría mucha memoría.

[Albano]

Empezado por Lepe

La solución a tu problema, desde mi punto de vista, es crear al frame un evento OnSalir, cuando el usuario pulsa el botón salir, se lanza ese evento, que lo recoge la ventana donde se creó el Frame, y desde allí se destruye el Frame.

Ya seguí estos pasos y sigo teniendo el mismo problema... Voy a escribir lo que hice:
Puse todo el código que me recomendó Lepe nada mas que modifiqué un poco el procedimiento RecibeEventoSalir, lo puse de la siguiente manera:

Código Delphi [-]
procedure TForm2.RecibeEventoOnSalir(Sender: TObject);
begin
  if FrameCamAlt <> nil then FreeAndNil(FrameCamAlt);
  if FrameCliAlt <> nil then FreeAndNil(FrameCliAlt);
end;

Esto lo hice para poder usarlo con algunos Frames que tengo en la aplicación (ahí solo muestro 2, pero son mas).
El error que me marca es el de Abstract Error, después de la última línea del código que acabo de poner, pero la primera vez que lo ejecuto no, hasta la segunda pasa.

Empezado por Lepe

Aquí está el detalle importante: La misma ventana que crea el frame es el que lo destruye. Además evitas dolores de cabeza, muy típico cuando depuras un programa: "El frame se crea en el form1... pero ¿donde se destruye? ahhh ... siii, en el Form25 cuando se pulsa el boton XXX"... demasiado lío compañero.

Me gusta la idea, muchas gracias por el tiempo que tomaste para explicarmelo, espero que pueda hacerla funcionar.

Empezado por D&W

con esta forma te evitarás el enorme trabajo de estar ocultado y mostrando los frames. El PageControl lo puedes personalizar para no mostrar las ventanas, aún así yo en lo personal prefiero utilizar el TNoteBook porque obtengo una mejor apariencia, y creo que sería la mejor para tí.

Lo malo de esta opción sería la cantidad de Frames que utilizo, son algunos y no es recomendable tenerlos todos creados. Pero muchas gracias por la opción, creo que la voy a usar en otro proyecto que tengo pensado hacer muy pronto.

Empezado por Roman

Lo que tienes que implementar es la forma de colocar uno u otro Frame según la opción del menú seleccionada. Yo he hecho esto, pero como he usado muy pocos Frame, opté por insertarlos todos de inicio y sólo cambio su visibilidad según me muevo por el menú. Pero si sin muchos módulos, lo mejor será crearlos bajo demanda.

[[Lepe]]

Estas usando ese mismo evento para destruir varios frames, y debe tenerse en cuenta.

Por ejemplo:
- has creado 2 frames (para simplificar los nombres) uno es "Cam" y el otro "Cli".
- Ahora cierras un frame.
- Se ejecuta el evento TForm2.RecibeEventoOnSalir que liberará de memoria los dos frames ¿eso no importa?

Lo pregunto porque yo no sé la lógica de tu programa, pero al menos no lo veo del todo correcto.

Una posible solución sería esta:

Código Delphi [-]
procedure TForm2.RecibeEventoOnSalir(Sender: TObject);
begin
  if (FrameCamAlt <> nil) and (Sender is TFrameCamAlt) then FreeAndNil(FrameCamAlt);
  if (FrameCliAlt <> nil) and (Sender is TFrameCliAlt)then FreeAndNil(FrameCliAlt);
end;

El truco viene de la definición del frame, en la línea que se lanza el evento:

Código Delphi [-]
FOnSalir(Self);

como ves, se le pasa el parámetro "Self", que será un TFrameCamAlt o un TFrameCliAlt, según quien lance el evento. De esta forma solo liberamos el Frame donde se pulse el boton salir.

No lo he dicho, pero en el OnClose del TForm2 también tendrías que mirar si hay algún frame creado para liberarlo.

El "Abstract error" viene a decir que estamos ejecutando un método que está marcado como abstracto (abstract es una palabra reservada de delphi) que precisamente se pone para eso, para evitar un problema mayor del que estas teniendo. Imagina que el programa se cierra sin indicar ningún mensaje de error... ¿por donde empiezas a buscar?.

Ahora te muestra el mensajito de error y ya sabes que el problema está en la creación y destrucción de objetos, y es más que probable que hayas creado un método así:

Código Delphi [-]
constructor Create;
procedure  Close;

cuando debería decir:

Código Delphi [-]
constructor Create;override; 
procedure  Close;override;

Para indicar que ese método que estas creando no es uno nuevo, sino que sustituye a uno existente en la clase de la que estas heredando (esa clase puede ser un Frame, un Form, etc).

Saludos y buena caza.

[Albano]

Hice eso que me mencionabas del "Sender", pero lo último que me propones no se donde ponerlo, la creación de los frames la hice como me indicaron Dec y tu, al darle click a un botón, pongo el siguiente código:

Código Delphi [-]
  RecibeEventoOnSalir(Sender);
  FrameCamAlt := TFrameCamAlt.Create(nil);
  FrameCamAlt.OnSalir := RecibeEventoOnSalir;
  FrameCamAlt.Parent := panelcontenido;

Donde se tiene que poner eso de override?

[[Lepe]]

Se hace cuando heredas de un frame o de una forma, normalmente usas estos 2 métodos especiales:

Código Delphi [-]
constructor Create(...); override;
destructor Destroy;

Si no has usado ni constructor ni destructor, pues.... el problema vendrá por otro sitio. Como ya ves es difícil de resolver, precisamente porque ese tipo de fallos son de concepto (crees que estas haciendo las cosas bien) y no detectas el fallo. La solución viene por estudiar (con F1 por ejemplo) todo aquello que puedas intuir que da fallos, y comprobar que está bien.

No sé si pueda ayudarte el Call Stack.

Primero activa tools- > options -> debugger "Stop on delphi exception", así al producirse la excepción "abstract error" el IDE de delphi se parará, a continuación mira en View -> Stack Call (llamadas de pila). Las primeras llamadas serán bastante raras y no te sonarán de nada, pero si sigues mirando, igual encuentras algún elemento de tu programa (un Form, un frame) etc, y muy probablemente se encuentre el error por ahí.

Suerte