Override eventos On...

lento manu · #1 26-09-2005

Estoy intentando tener acceso a los eventos principales de un Form desde un componente que lo contiene, para poder sobrescribirlos al modo override o inherited.
La idea es disponer de un form de exploración DB tipo y convertirlo en componente. Pues bien, si yo llamo a este componente desde una Query, para editar los valores de algún dato en modo Tabla por ejemplo, y realizar un locate cuando el componente ha acabado su creación. Si accedo a la propiedad OnActivate, esta se sobrescribe sustituyendo, pero no complementando la original.
Este componente es parecido al TDBViewer del curso de Luis Roche, pero quiero que en inspector de objetos me aparezcan los eventos tales como: OnActivate, OnShow, OnClose, OnDestroy. Actualmente lo consigo, pero los métodos antecesores desparecen y no se ejecutan en 'inherited', es decir: en herencia después de lo declarado en los eventos originales.
¿Cómo puedo declarar estos eventos en mi componente de enlace?
Ya pego el código del compo para que lo probéis si queréis con cualquier Form al uso. Si queréis más código me lo pedís. ¿Vale?
El código imprescindible de la llamada del Componente en el form que creamos dinámicamente es:

Código Delphi [-]public
constructor CreateTabla(aOwner:TComponent; data: TDataSet);
...
published
Tabla: TDataSet;
...
implementacion ...
constructor TfmExploracionTabla.CreateTabla(aOwner:TComponent; data: TDataSet);
begin
 
try
if data.Active then
abierta:= True
else
abierta:= False;
 
Tabla:= data;
if Tabla is TTable then
nombreTabla:= (Tabla as TTable).TableName;
if Tabla is TADOTable then
nombreTabla:= (Tabla as TADOTable).TableName;
except
begin
Destroy;
Raise;
end;
end;
 
inherited Create (aOwner);
 
end;

Jolines: Que bonitas quedan las etiquetas "Delphi".
Ahora el código del componente en si:

Código Delphi [-]{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit DBX;
interface
uses
Windows, Messages, SysUtils, Classes, Forms, DB, DBTables, DBGridCheck;
type
TDBexplorer = class(TComponent)
private
{ Private declarations }
FTable: TDataSet;
FModal: boolean;
FOnActivate: TNotifyEvent;
FOnShow: TNotifyEvent;
FOnDie: TNotifyEvent;
FOnClose: TCloseEvent;
FOnEndDock: TEndDragEvent;
function GetTable: TDataSet;
procedure SetTable (value: TDataSet);
 
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Execute;
published
{ Published declarations }
property Table: TDataSet read GetTable write SetTable;
property Modal: boolean read FModal write FModal default True;
//@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;
end;
 
procedure Register;
 
implementation
 
uses ExControlsTabla;
 
constructor TDBexplorer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FModal := True;
end;
destructor TDBexplorer.Destroy;
begin
inherited Destroy;
end;
 
function TDBexplorer.GetTable :TDataSet;
begin
Result:= FTable;
end;
 
procedure TDBexplorer.SetTable(value: TDataSet);
begin
if FTable <> value then
begin
FTable:= Value;
if value <> nil then
value.FreeNotification(Self);
end;
end;
 
procedure TDBexplorer.Execute;
var
Explorador: TfmExControlsTabla;
begin
Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);
//Ojo: para impedir acceder al código OnDestroy si el parent abre noModal
if Modal and (Owner<>nil) then
Explorador.OnDestroy:= OnDie;
//probando...
Explorador.OnClose:= OnClose;
Explorador.OnActivate:= OnActivate
Explorador.OnShow:= OnShow;
if FModal then
try
Explorador.ShowModal;
 
finally
Explorador.Free;
end
else
try
Explorador.Show;
except
Explorador.Free;
end;
end;
 
procedure Register;
begin
RegisterComponents('Data Controls', [TDBexplorer]);
end;
end.

¡¡Gracias a todos!!

Neftali [Germán.Estévez] · #2 26-09-2005

¿Y si en Lugar de TComponent, derivas de TControl (que tiene esos eventos)?

lento manu · #3 26-09-2005

Gracias, es una gran idea.

He hecho la prueba:
En el form desaparece el componente como icono y queda como un control invisible: única diferencia en diseño.
En ejecucíón pasa lo mismo. El código que debe ejecutarse en el form que contiene OnActivate, por ejemplo, se omite en espera de un nuevo código en el uso del compo ¡desprotejiendo así toda su codificación!

lento manu · #4 30-09-2005

He encontrado una solución, que funciona, pero no he conseguido un override sobre el evento, ya que el componente que abre el form, es un simple Tcomponent, no tiene este mismo valor en herencia. Tampoco he conseguido un inherited. La llamada

Código Delphi [-]Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);

crea un Form que ha su vez es un inherited de otro inicial. Este form tiene en el OnActivate las llamadas, que generan controles DBtext, DBimage, DB... lo que sea. Estas llamadas se inician en el evento OnActivate.
Os pego el código porque creo os puede interesar (si veis algo mal, avisarme, por favor).

Código Delphi [-] 
unit DBX;
interface
uses
Windows, Messages, Controls, SysUtils, Classes, Forms, DB,
DBTables,
DBGridCheck,
ExControlsTabla;
type
TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object;
TDBexplorer = class(TComponent)
private
{ Private declarations }
FTable: TDataSet;
FModal: boolean;
FOnActivate: TNotifyEvent;
FOnShow: TNotifyEvent;
FOnDie: TNotifyEvent;
FOnClose: TCloseEvent;
FOnEndDock: TEndDragEvent;
CloseAction: TCloseAction;
function GetTable: TDataSet;
procedure SetTable (value: TDataSet);
procedure Cerrar(var Action: TCloseAction);
procedure Activate(Sender: TObject);
protected
{ Protected declarations }
public
{ Public declarations }
Explorador: TfmExControlsTabla;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Execute;
 
published
{ Published declarations }
property Table: TDataSet read GetTable write SetTable;
property Modal: boolean read FModal write FModal default True;
//@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;
end;
procedure Register;
implementation
//uses ExControlsTabla;
constructor TDBexplorer.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
// asignar las propiedades por defecto:
FModal := True;
end;
destructor TDBexplorer.Destroy;
begin
if Assigned (Explorador) then
FreeAndNil(Explorador);
inherited Destroy;
end;
 
function TDBexplorer.GetTable :TDataSet;
begin
Result:= FTable;
end;
 
procedure TDBexplorer.SetTable(value: TDataSet);
begin
if FTable <> value then
begin
FTable:= Value;
if value <> nil then
value.FreeNotification(Self);
end;
end;
 
procedure TDBexplorer.Execute;
//cambiado a public para poder escribir sobre evento OnActive desde el procedure Activate:
{
var
Explorador: TfmExControlsTabla;
}
begin
Explorador:= TfmExControlsTabla.CreateTabla(Owner, FTable);
//Ojo: para impedir acceder al código OnDestroy si el parent abre noModal
if Modal and (Owner<>nil) then
Explorador.OnDestroy:= OnDie;
Explorador.OnActivate:= Activate;
Explorador.OnClose:= OnClose;
Explorador.OnShow:= OnShow;
Explorador.OnEndDock:= OnEndDock;
 
if FModal then
try
Explorador.ShowModal;
 
finally
Explorador.Free;
end
else
try
Explorador.Show;
except
Explorador.Free;
end;
end;
 
procedure Register;
begin
RegisterComponents('Data Controls', [TDBexplorer]);
end;
 
procedure TDBexplorer.Cerrar(var Action: TCloseAction);
begin
inherited;
if Assigned(FOnClose) then FOnClose(Self, Action);
end;
 
procedure TDBexplorer.Activate(Sender: TObject);
begin
inherited;
if Assigned(Explorador) then
begin
//rellamamos los mismos procedidmientos que están declarados en el
//evento OnActivate del form Explorador:
Explorador.Crear(Sender);
Explorador.ColorIndices;
end;
end;
end.

Gracias por las ayudas recibidas. Espero que esto pueda servir para alguien.

[maeyanes] · #5 30-09-2005

Lo que puedes hacer es crear unos campos privados en tu componente, del mismo tipo que los eventos que necesitas. Por ejemplo, el OnActivate:

Código Delphi [-]private
  FOldOnActivate: TNotifyEvent;

Entonces al crear el formulario haces algo como:

Código Delphi [-]FOldOnActivate := Explorador.OnActivate;
Explorador.OnActivate:= Activate;

Y en el método activate haces:

Código Delphi [-]procedure TDBexplorer.Activate(Sender: TObject);
begin
  if Assigned(Explorador) then
  begin
    if Assigned(FOldOnActivate) 
      FOldOnActivate(Sender);
    // El código que debe ejecutar tu componente...
  end
end;

Lo que se hace aquí, es guardar el antigüo manejador de evento, y luego, si este estaba asignado, hacer la llamada...

Espero que esto te ayude a solucionar tu problema...

Saludos...

lento manu · #6 01-10-2005

Gracias Marcos. Si me ha servido, por supuesto. Sobre todo a que el código esté claro, no contenga la redundancia que contenía al repetir las llamadas internas de un evento ya escrito. No sospechaba ni en lo más remoto que

Código Delphi [-]FOldOnActivate := Explorador.OnActivate;

pudiera funcionar, todavía no comprendo bien por qué funciona, pero ya me entrará en la cabezota.
El comportamiento, después de los cambios que me sugieres, es de hecho, el mismo. Quiero decir, que en el Inspector de Objetos, me aparece el evento OnActivate, que por lo menos, ejecuta el evento asociado en el form que se creará, pero si escribo código en este evento, que necesito para realizar un locate, este no se ejecuta, aunque lo escriba con inherited. Si tienes alguna idea... ...Acabo de probar esto y EUREKA: funciona. Evidentemente por eso me has recomendado utilizar una nueva variable FOldOnActivate, para mantener la heredada y la propia. Dejando el procedimiento así, se me ejecutan ambas:

Código Delphi [-]procedure TDBexplorer.Activate(Sender: TObject);
begin
  inherited;
    if Assigned(Explorador) then
    begin
       if Assigned(FOldOnActivate) then
          FOLdOnActivate(Sender);
       if Assigned(FOnActivate) then
          FOnActivate(Sender);
    end;
end;

Muchísimas gracias por el empujoncito: me he estampado con lo que iba buscando.

lento manu · #7 05-10-2005

Por si a alguien le interesa, este es mi componente final (de momento) que genera un Explorador TTable o TAdoTable, pero se puede aplicar a cualquier gestion SQL genérica con TQuery en vez de TTable. El asunto es crear un superForm dedicado a una conexión DB:

Código Delphi [-]unit DBX;
interface
uses
  Windows,
  Messages,
  Controls,
  SysUtils,
  Classes,
  Forms,
  DB,
  DBTables,
  DBGridCheck,
  ExControlsTabla;
type
  TEndDragEvent = procedure(Sender, Target: TObject; X, Y: Integer) of object;
  TDBexplorer = class(TComponent);
  private
    { Private declarations }
    FTable: TDataSet;
    FModal: boolean;
    FOldOnActivate: TNotifyEvent;
    FOnActivate: TNotifyEvent;
    FOnShow: TNotifyEvent;
    FOldOnClose: TCloseEvent;
    FOnDie: TNotifyEvent;
    FOnClose: TCloseEvent;
    FOnEndDock: TEndDragEvent;
    CloseAction: TCloseAction;
    function GetTable: TDataSet;
    procedure SetTable (value: TDataSet);
    procedure Activate(Sender: TObject);
    procedure Cerrar(var Action: TCloseAction);
  protected
    { Protected declarations }
  public
    { Public declarations }
    Explorador: TfmExControlsTabla;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Execute;
    
  published
    { Published declarations }
    property Table: TDataSet read GetTable write SetTable;
    property Modal: boolean read FModal write FModal default True;
    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;
  end;
procedure Register;
implementation

constructor TDBexplorer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FModal := True;
end;
destructor TDBexplorer.Destroy;
begin
  if Modal then
  begin
    //no destruir si no es modal: error de assigned
    if Assigned(Explorador) then
       FreeAndNil(Explorador);
  end;
  inherited Destroy;
end;

function TDBexplorer.GetTable :TDataSet;
begin
  Result:= FTable;
end;
procedure TDBexplorer.SetTable(value: TDataSet);
begin
   if FTable <> value then
   begin
      FTable:= Value;
      if value <> nil then
        value.FreeNotification(Self);
   end;
end;
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;
procedure Register;
begin
  RegisterComponents('Data Controls', [TDBexplorer]);
end;
procedure TDBexplorer.Activate(Sender: TObject);
begin
  inherited;
    if Assigned(Explorador) then
    begin
       if Assigned(FOldOnActivate) then
          FOLdOnActivate(Sender);
       if Assigned(FOnActivate) then
          FOnActivate(Sender);
    end;
end;
procedure TDBexplorer.Cerrar(var Action: TCloseAction);
begin
  inherited;
  //como no modal no puedo llamar estos eventos (ya no existen)
  if Modal then
  begin
    if Assigned(FOldOnClose) then
    begin
       if  Assigned (Explorador.Tabla) then
       begin
          if Explorador.Tabla.Active then
             Explorador.Tabla.Close;
             FOldOnClose(Self, Action);
       end;
    end;
    if Assigned(FOnClose) then
       FOnClose(Self, Action);
    if Explorador <> nil then
       Explorador:= nil;
  end;
end;
end.

Espero que os pueda servir.

[Lepe] · #8 05-10-2005

¿Y este compadre?

Explorador: TfmExControlsTabla;

saludos, tiene buena pinta.

lento manu · #9 06-10-2005

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] · #10 06-10-2005

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 · #11 07-10-2005

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] · #12 07-10-2005

Cita:

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 · #13 08-10-2005

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.