Muy buenas. Tengo un componente propio que deriva de la clase TCustomControl.
Lo que deseo es poder arrastrar y soltar un panel encima de este componente mío.
El código mediante el cual he intentado esto es el siguiente:
Código Delphi
[-]
TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object;
TDragOverEvent = procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean) of object;
TMiNuevoComponente = class(TCustomControl)
private
fDragDropEvent : TDragDropEvent;
fDragOverEvent : TDragOverEvent;
...
published
property OnDragDrop1: tDragDropEvent read fDragDropEvent write fDragDropEvent;
property OnDragOver1: tDragOverEvent read fDragOverEvent write fDragOverEvent;
...
end;
Pero sin éxito. En mi formulario he asignado un trozo de código en ambos eventos pero ninguno llega a dispararse. He observado que dentro de la clase TMiNuevoComponente puedo acceder a dos propiedades (OnDragDrop y OnDragOver) pero no se de que me puede servir.
Gracias.