Nodes verschieben im VirtualTreeView

[marlem]

Hallo,

ich programmiere gerade mit dem VirtualTreeView von Mike Lischke.
Meine Anwender möchten in der Baumansicht nodes verschieben.
kann mir bitte jemand erklären wie man das programmiert.

Gruß und Danke!

Markus

[konda]

Versuch mal mit der Eigeschaft :bouncing4: node.index

[marlem]

danke!
ich schaue mal.
aber vielleicht kann jemand noch mehr infos geben!
mir ist auch nicht klar, wie ich das verschieben an sich realisiere (drag and drop wenn ja wie) oder ganz anders!?

[sh17]

Schau Dir mal die OLE-Demo von vt an. Dort ist Drag & Drop beschrieben.

[marlem]

ist aber bei mir nur eine exe ohne delphi-code!
wo ist die beschreibung?

[sh17]

Wenn Du Dir das Paket "SourceOnly" herunterlädst, ist der Quelltext dabei.

[marlem]

habe ich gemacht!
sind aber nur packages beim entpacken zum vorschein gekommen, keine demos.

[sh17]

Komisch, früher waren sie mal drin.

Nimmst Du die aus dem Anhang hier:

[marlem]

vielen Dank!!!!!

[marlem]

ich blicke es nicht, wie das funktioniert! :(
bräuchte noch paaar tipps!

[marlem]

ich habe getrickst:

Delphi-Quellcode:

procedure TFormMain.TreeViewBaumClick(Sender: TObject);
var
Node: PVirtualNode;
begin
Node:=TreeViewBaum.FocusedNode;
SourceNode := Node;
end;

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

procedure TFormMain.TreeViewBaumDragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
  Data: PTreeData;
  Dataziel : TTreeData;
begin
Data:=TreeViewBaum.GetNodeData(sourcenode);
//Mit dem Trick kann man PTreedata in TTreedata konvertieren
Dataziel.FCaption := Data.FCaption;
//Zuletzt markierter Knoten an Mausposition hinzufügen
AddNode(TreeViewBaum,Sender.DropTargetNode,Dataziel);
TreeViewBaum.DeleteNode(SourceNode);
TreeViewBaum.Invalidate;
end;

so funktioniert es!

ein problem habe ich noch.
der "verschobene" node ist nicht sofort "anklickbar"!
weiß jemand warum?

habe noch ein problem:
die unterknoten werden nicht mit verschoben.
hat jemand ne idee wie man das hinbekommt?

[marlem]

ohje! manchmal ist die lösung so einfach:

Delphi-Quellcode:

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

procedure TFormMain.TreeViewBaumDragDrop(Sender: TBaseVirtualTree;
  Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
  Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
  WSourceNode,WTargetNodeUr : PVirtualNode;
begin
(* Eigenschaften setzen für drag and drop:
   DragMode = dmAutomatic
   DragType = dtVCL
*)

WSourceNode := SourceNode;
WTargetNodeUr := Sender.DropTargetNode;
TreeViewBaum.MoveTo(WSourceNode,WTargetNodeUr,amAddChildLast,false);
end;

funzt! :cheers: