Drag and Drop im Treeview

[Andreas Käding]

Hallo!

Ich brauche nur den Einstieg. Was muss ich machen, damit er beim DragAndDrop das in Source gespeicherte Object als neues Child anfügt?

Danke, m.f.G. Andreas Käding

[Matthias Fichte]

Hallo, hier ein Auszug aus der Delphi Hile für GetNodeAt<BR>
Im folgenden Code wird GetNodeAt verwendet, um einen gezogenen Knoten<BR>
als untergeordnetes Objekt des Knotens zu installieren, auf dem sich<BR>
der Mauszeiger beim Ablegen befand.

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);<BR>
var<BR>
AnItem: TTreeNode;<BR>
AttachMode: TNodeAttachMode;<BR>
HT: THitTests;<BR>
begin<BR>
if TreeView1.Selected = nil then Exit;<BR>
HT := TreeView1.GetHitTestInfoAt(X, Y);<BR>
AnItem := TreeView1.GetNodeAt(X, Y);<BR>
if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then<BR>
begin<BR>
if (htOnItem in HT) or (htOnIcon in HT) then AttachMode := naAddChild<BR>
else if htNowhere in HT then AttachMode := naAdd<BR>
else if htOnIndent in HT then AttachMode := naInsert;<BR>
TreeView1.Selected.MoveTo(AnItem, AttachMode);<BR>
end;<BR>
end;<BR>

Gruß Matthia

[Andreas Käding]

Hallo Mathias,

danke erstmal. Wie muss ich die Prozedur denn noch anpassen, wenn zusätzlich auch Items aus einem benachbarten Listview angedockt werden sollen?
Und noch was: Fällt Dir vielleicht noch was zu dem Performance - Problem im Treeview unter Datenbankentwicklung ein?

Gruß Andrea