Métodos e objetos

[bdexterholland 0]

Como faço para associar um evento a um objeto de qualquer tipo durante a execução do programa??? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

deixe um exemplo se possivel :D

[Rodrigo Salvador 0]

Veja se é isso q você precisa:

 

type	TEvento = procedure(Sender: TObject; Result: Boolean) of object;type	TSuaClasse = class(TComponent)	private	   FOnAlgumaCoisaAconteceu: TEvento;	public		procedure ExecutarAlgumaCoisa;	published		property OnAlgumaCoisaAconteceu: TEvento read FOnAlgumaCoisaAconteceu write FOnAlgumaCoisaAconteceu;	end;procedure TSuaClasse.ExecutarAlgumaCoisa;begin   if Assigned(FOnAlgumaCoisaAconteceu) then	  FOnAlgumaCoisaAconteceu(Self, True);   // O evento é disparado aquiend;