VirtualTreeView: OnEndDrag wird nicht ausgelöst

[changlee]

Hallo,

ich habe ein Problem mit Drag&Drop zwischen zwei VirtualStringTree-Komponenten.
Habe bisher noch nichts mit Drag&Drop gemacht und deshalb hier im Forum gesucht und folgendes gefunden:

Man solle jeweils für beide Komponenten..

Delphi-Quellcode:

dragMode := dmManual;
dragType := dtOle;

.. einstellen und für die Zielkomponente deklarieren:

Delphi-Quellcode:

procedure TFmMain.vstDragOver(Sender: TBaseVirtualTree; Source: TObject;
  Shift: TShiftState; State: TDragState; Pt: TPoint; Mode: TDropMode;
  var Effect: Integer; var Accept: Boolean);
begin
accept:=true;
end;


procedure TFmMain.vstEndDrag(Sender, Target: TObject; X, Y: Integer);
var zielknoten,quellknoten:PVirtualNode;
    folder:TFolder;
    dataset:TMsgDataSet;
    fn:string;
begin
  // das hier wird niemals erreicht...
end;

Offenbar tritt das Ereignis OnEndDrag aber niemals ein!
Wieso denn nicht?

Kann mir jemand weiterhelfen?

Gruß,
Stefan.