Componentes - override de eventos

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;