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.