Delphi - Definir eventos en clases propias

 
Vista:

Definir eventos en clases propias

Publicado por [email protected] (213 intervenciones) el 02/10/2003 00:29:29
Buenas. Mi problema es:

Tengo que definir una calse propia, derivada de TImage. La cosa es que quiero que tenga los eventos OnDragOver y OnDragDrop. Pero no sé cómo hacerlo. Si alguien puede darme una ayuda o una dirección donde encontrar la info, le agradecería.

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Definir eventos en clases propias

Publicado por Liebesschmerz (76 intervenciones) el 02/10/2003 01:29:23
yo declaro un evento asi:

type
TMiEvento = procedure(const Data: String) of object;

TMiClase = class(TObject)
private
FOnSomething: TMiEvento;
public
property OnSomething: TMiEvento read FOnSomething write FOnSomething
end;

y luego para llamarlo solo pones
if Assigned(FOnSomething) then OnSomething('evento ejecutado');
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar