Wenn du von TCustomControl ableitest, brauchst du Drag&Drop nicht selbst implementieren, da das schon im Vorfahr TControl erledigt ist. Wenn du die Ereignisse nach außen durchreichen willst, reicht folgender Code im Deklarationsteil deiner Komponente.
Delphi-Quellcode:
published
property OnDragDrop;
property OnDragOver;
Wenn du die Ereignisse intern abfangen willst, kannst du ensprechende Handler-Methoden schreiben und sie im Konstruktor deiner Komponente zuweisen, also :
Delphi-Quellcode:
private
procedure MyCustomDragDrop (Sender, Source: TObject; X, Y: Integer);
public
constructor Create (AOwner : TComponent); override;
...
implementation
constructor TMyComponent.Create (AOwner : TComponent);
begin
inherited Create (AOwner);
Self.OnDragDrop := MyCustomDragDrop;
end;
und mit OnDragOver genauso verfahren.