Events Handler - É possível através de objetos?

Delphi

14/10/2004

Olá.

Por um caminhão de circunstâncias, preciso que um objeto comum, de uma classe criada por mim (NÃO UM COMPONENTE, UMA CLASSE), dispare um evento toda vez que eu passar por um loop dentro de determinado método.

Declarei o evento na classe da seguinte maneira:

    private
      FOnGravaRegistro: TNotifyEvent;

    protected
      procedure gravaRegistro(); virtual;
      property OnGravaRegistro: TNotifyEvent read FOnGravaRegistro write FOnGravaRegistro;


Agora, a dúvida é: existe uma classe (TGerente) que possui um atributo desta classe onde está o evento (TClasse). Como associar para que toda vez que o evento de TClasse for disparado, a classe TGerente execute uma ação específica?

Obrigado.

PS: Isto tudo, é claro, se existe maneira de associar eventos a classes comuns, sem que sejam componentes.

Filipe[/code]


José Filipe

José Filipe

Curtidas 0
POSTAR