VirtualTreeview und Drag & Drop von Nodes. Brauche Hilfe.

[CenBells]

Hallo,

dies ist ein Crossposting mit dem DF
http://www.delphi-forum.de/viewtopic.php?t=23318

Zitat:

hi leute,

weiß keiner, was ich beim drag&drop von nodes in einem VirtualStringTree machen muss?
Ich kann zwar nen node draggen aber nicht droppen.

Gruß
Ken

Vielleicht kann mir hier wer helfen.



Gruß
Ken

[Albi]

Wenn es sich um die Kompo von Delphi-Gems handelt, wird es etwas komplizierter. Du mußt die Daten in einem Record ablegen und an der gewünschte Stelle wieder einfügen.

In der Anlage habe ich ein kleines Prog gelegt, wo erklärt wird, wie es mit dem Drag&Drog fünktioniert

[Coder90]

@ Abli: IMHO tut der Code das Rekord nicht kopieren oder verschieben.
Das Caption des Nodes wird dort mithilfe soSaveCaptions übernommen:

Delphi-Quellcode:

procedure TMainForm.Tree1NewText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; Text: WideString);

var
  Data: PNodeData;

// Tree1 as well as Tree2 use the soSaveCaptions StringOption which enables automatic caption store action
// when tree data is serialized into memory (e.g. for drag'n drop). Restoring the caption is done by triggering
// this event for each loaded node.
// This mechanism frees us from implementing a SaveNode and LoadNode event since we have only the caption to store.

begin
  Data := Sender.GetNodeData(Node);
  Data.Caption := Text;
end;

Ich hab zum Test einen HintText für jedes Node implementiert der im Rekord gespeichert wird.
Der HintText wird mit dem Code der obigen Unit nicht übernommen.

Jemand eine Idee wie ich das Rekord mit verschieben kann?

MfG