Componentes - criando evento padrao TNotifyEvent

Top  Previous  Next

Quando voce quise criar um evento que só tem sender

não precisa criar:

 

 type

   TEventoX = procedure(sender: tobject) of object;

 

 private

   fEventoInt: TEventoX;

 

 published

   property OnEventoX: TEventoX write fEventoInt read fEventoInt;

 

  

use o TNofityEvent do Delphi. Está lá para economizar dedos,

assim sua declaração do evento fica

 

 private

   fEventoInt: TNotifyEvent;

 

 published

   property OnEventoX: TNotifyEvent write fEventoInt read fEventoInt;

 

 

Para detalhes veja o Criando Eventos