控件的拖放问题，请大家帮忙解决一下？(100分)

Y

yfli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #1

我现在想实现在一个Treeview内部将其中一个子节点从它的父节点拖动到另一
个节点下，将该节点作为新节点的子节点，并将原有的子节点删除。但是拖放
过程的Sender,Source都是TTREEVIEW，无法取得TTREENODE。请高手们帮助
解决一下。

 

P

pleasekillme

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #2

procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
ShowMessage((Sender as TTreeView).Selected.Text);
if (Sender as TTreeView).DropTarget<>nil then
ShowMessage((Sender as TTreeView).DropTarget.Text);
end;

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-05

• #3

说具体点,想取得什么的treenode? 什么时候需要取得?

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-08

• #4

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (sender as ttreeview) = (source as ttreeview) then
if (sender as ttreeview).DropTarget<>(source as TTreeView).Selected then
(source as TTreeView).Selected.MoveTo((sender as ttreeview).DropTarget,naAddChild);
end;

 

Y

yfli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-09

• #5

多人接受答案了。