Componentes - override de eventos

Top  Previous  Next

unit QuerySocio;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Db, DBTables;

 

type

  TQuerySocio = class(TQuery)

  private

    FAfterPost: TDataSetNotifyEvent;

  protected

    procedure DoAfterPost; override;

  published

    property AfterPost: TDataSetNotifyEvent read FAfterPost write FAfterPost;

  end;

 

procedure Register;

 

implementation

 

procedure Register;

begin

  RegisterComponents('Samples', [TQuerySocio]);

end;

 

procedure TQuerySocio.DoAfterPost;

begin

  ShowMessage('AfterPost Interno no Componente!');

  if Assigned(FAfterPost) then FAfterPost(Self);

end;

 

end.

 

---------------------- OUTRO EXEMPLO -------------------------

 

//  Sobrescrevendo um evento

// Para executar algo antes do evento Showmodal por exemplo, utilize o seguinte:

 

public

  function showmodal: integer;

 

function TMeuForm.Showmodal : integer;

begin

  { Aqui vai tudo que se precisa fazer antes }

  result := inherited showmodal;

end;