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.

[generic]

Erste Idee die ich habe, das Ereignis wird nur bei VCL-DD ausgelöst?

[changlee]

Hi,

also ich habe jetzt dragType auf dtVCL umgestellt (bei beiden Komponenten). Das ereignis wird aber immer noch nicht ausgeführt.

[changlee]

Achso, nochwas: Wenn ich wie oben beschrieben den dragMode bai beiden Komponenten aud dmManual setze, kann ich nicht mal von der Quellkomponente "losdraggen" (der Eintrag bleibt dann nicht am Mauszeiger hängen). Setze ich auf dmAutomatic, kann ich zwar "losdraggen", EndDrag wird aber nicht ausgeführt.

[changlee]

Habs inzwischen gelöst bzw. umgangen. Ich benutze jetzt nicht mehr OnEndDrag sondern OnDragDrop. Das erklärt zwar immer noch nicht, warum OnEndDrag nicht eintritt, aber so funktioniert es wenigstens.

Gruß
Stefan.