Virtualstringtree: Own DragnDrop unterbinden

[Aviator]

Es wäre vielleicht noch interessant zu wissen, wie dein VST Konfiguriert ist. DragType z.B. auf dtOLE oder dtVCL???
Aber normalerweise müsstest du mit dem EventHandler OnDragOver etwas anfangen können.

Delphi-Quellcode:

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

end;

Hier kannst du den Accept Parameter auf False stellen, wenn Source gleich deinem VST ist. So in der Art sollte das funktionieren. Oder ich habe das Problem falsch verstanden. Die Beschreibung ist sehr dürftig.