OnDragdrop y OnDragOver

[plionut]

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.

[Ñuño Martínez]

¿Qué código usas para disparar esos eventos?

[plionut]

A través del object inspector:

Código Delphi [-]
procedure TMiFormulario.MiComponenteDragDrop1(Sender, Source: TObject; X, Y: Integer);
begin
  showmessage('blabla')
end;

El valor de la propiedad dragmode del panel que quiero mover es dmAutomatic

[Ñuño Martínez]

Me lo temía. Lo que tienes que hacer es sobrecargar (OVERRIDE) varios métodos de la clase TCustomControl. No sé exactamente cuales, pero serían los que tengan nombres con "Drag" y/o "Drop". Por ejemplo, DoDragMsg, aunque no estoy seguro del todo. Nunca he usado drag'n'drop así que no sabría decirte.

[roman]

Pero en realidad no necesita nada de eso, o al menos eso creo. TCustomControl ya tiene todo para manejar el drag & drop, así que lo único que debe hacer es codificar los eventos OnDragDrop, OnDragOver. Aquí puede ver una explicación general de su uso.

LineComment Saludos

[plionut]

Acabo de volver de vacaciones así que pido disculpas por contestar tan tarde.
primero, muchas gracias por las respuestas pero sigo sin encontrar solución.

Pero tengo pregunta-pista, a ver si va por aquí la solución. He observado que puedo arrastrar y soltar el panel encima de otros panels. Al mismo tiempo, he podido observar que el panel NO lo puedo arrastrar encima de los objetos del tipo TSpeedButton.
Sabe alguien el motivo? Gracias.