Como criar eventos para componentes ??

Question

Caros colegas..estou com problemas para criar um evento em um componente desenvolvido por mim..Eu sei como criar propriedades, mas n�o consigo criar eventos.. Como fazer??Agrade�o antecipadamente.Cabe...

Beppe · Answer

Eventos nada mais s�o do que propriedades. Voc� pode ver um evento como uma propriedade tendo m�todo como tipo.

Comumente, fazemos:

1) Defina o tipo do m�todo:
type
TMeuEvento = procedure(Sender: TObject) of object;

2) Defina a propriedade:
property OnEvento: TMeuEvento read FOnEvento write FOnEvento;

3) Dispare o manipulador:
if Assigned(FOnEvento) then FOnEvento(Self);

Voc� pode usar um tipo diferente(o usado aqui equivale ao TNotifyEvent), com par�metros conforme desejado. Note que o [b:22585cb334]of object[/b:22585cb334] faz a m�gica dos eventos. Se vc sabe usar eventos, n�o ter� problemas em escrever seus pr�prios. Se precisar de mais clarifica��es � s� falar... :wink:

F�rum Como criar eventos para componentes ?? #227203