Override eventos On...

[lento manu]

Ese es precisamente el Form que se genera y q se declara en el uses:
DBGridCheck,
ExControlsTabla //TfmExControlsTabla;
El DBGriDCheck es un TFrame contenido en el form ExControlsTabla, que esencialmente es toda una aplicación que edita indices, busquedasy filtros, ademas de crear los controles DBImage, DBtext y todos los que quieras.
Como una imagen vale + que 1000 palabras vamos a intentarlo:
http://img386.imageshack.us/img386/8023/dbx5sl.jpg
De modo que pasamos una tabla de un DataModule (en el metodo execute asi: Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable); )
que tiene sus campos Lookup y otros, personalizados en el doble click del TTable. Solo diseñamos la conexión, el formulario ExControlsTabla, genera edición de campos Blob, y todo lo que queramos escribir.

[[Lepe]]

Código Delphi [-]
procedure TDBexplorer.Execute;
begin
   CloseAction:= caFree;
   Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);
   if Modal and (Owner<>nil) then
      Explorador.OnDestroy:= OnDie;
.
   FOldOnClose:= Explorador.OnClose;
   FOldOnActivate := Explorador.OnActivate;
   Explorador.OnActivate:= Activate;
   Explorador.OnShow:= OnShow;
   Explorador.OnEndDock:= OnEndDock;
   Explorador.OnClose:= OnClose;
   if FModal then
     try
        Explorador.ShowModal;
     finally
     begin
        //llamada a los eventos OnClose y FOldOnclose para sobrescribir
        Cerrar(CloseAction);
        Explorador.Free;
     end;
     end
   else
   begin
     try
       Explorador.Show;
     except
       Explorador.Free;
       //OJO: sigue viva
     end;
   end;
end;

Execute es publico, por tanto el usuario puede llamarlo varias veces ok¿?, vale, lo llamo una vez, se crea el Explorador. Lo llamo una segunda vez, se vuelve a crear otro Explorador ¿y que pasa con el anterior? pues simplemente se queda perdido en memoria ram, ocupando memoria y sin que nadie lo pueda liberar, ya que Explorador apunta ya al nuevo creado.

solución:

Código Delphi [-]
procedure TDBexplorer.Execute;
begin
   CloseAction:= caFree;
   if not assigned(Explorador) then 
     Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);
   if Modal and (Owner<>nil) then
      Explorador.OnDestroy:= OnDie;
...

saludos

[lento manu]

De nuevo gracias, Lepe, por leerte tan bien el código. Tienes toda la razón, siempre que este llamando el método create desde la propiedad FModal=True. Quizá ha sido un error implementar la creación Modal o NoModal del form Explorador. Si es modal, la aplicación no permite crear ningún 'Explorador' más, ya que no tenemos foco para ello, pero no estaría de más protegerlo además con un Exit (eliminando la opción NoModal):

Código Delphi [-]
   if Modal then
     begin
     if not assigned(Explorador) then
       Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);
     end
   else
     //Exit; //eliminaria toda opción NoModal
     Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);

Si no quisiera, 'caprichos de usuario', editar en Modal, entonces se generan con el mismo componente tantos exploradores como llamadas haga, desde por ejemplo un menú de Exploración multitabla:

Código Delphi [-]
procedure TForm1.Materiales1Click(Sender: TObject);
begin
    DBX.Table:= fDM.TMateriales;
    DBX.Modal:= CheckBox1.Checked;
    try
      DBX.Execute;
    except
      on E:Exception do
      ShowMessage(E.Message);
    end;
end;

El grave problema o error es que estoy usando Owner como como antecesor de todas esas ventanas, muy peligrosas, que se autodestruyen al morir el form donde reside este componente DBexplorador, posiblemente sería mejor Self, si asigna el compo en si como propietario o Padre. Tendía que hacer las pruebas: Hecho: ningún problema de momento ...Han colado las NoModal apagando desde la principal.

[[Lepe]]

Empezado por lento manu

Quizá ha sido un error implementar la creación Modal o NoModal del form Explorador.

Más bien el error es crear ese comportamiento desde el TDBExplorer. Eso corresponde a la implementación del TfmExControlsTabla.

Código Delphi [-]
//@J@// estos métodos se sobrescriben y no se ejecutan en TExControlsTabla
property OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
property OnShow: TNotifyEvent read FOnShow write FOnShow;
property OnDie: TNotifyEvent read FOnDie write FOnDie;
property OnClose: TCloseEvent read FOnClose write FOnClose;
property OnEndDock: TEndDragEvent read FOnEndDock write FOnEndDock;

Pues quitalos del TDBExplorer y dejalos en TExControlsTabla. No es una buena práctica en OOP modificar cosas que no te pertenecen

Igual que haces con la propiedad Table, haces con la propiedad Explorardor, pasandolo de public a published.

saludos

[lento manu]

Seguramente es una gran idea, y supone rescribir un poco. Y sobre todo testearlo, pero posiblemente la lógica sea más sólida.
De nuevo gracias por tus valoraciones y consejos.
Lo intentaré en cuanto pueda. De todos modos, el objeto es el que crea el complejo Explorador, basados en el form TfmExControlsTabla. A simple vista me parece difícil, lo q comentas, sobre todo para editarlo, pero sin probarlo, no lo puedo saber.
Voy a intentar maquetearlo todo + simple, a ver q pasa.