急求:Delphi中如何进行TreeView之间的拖拽?我在Delphi中只实现了在TreeView里面的拖拽.
解决方案 »
- 帮忙将C++代码转化为Delphi代码 10进制转16进制
- 现金求购,改进版idudpclient组件,要求能支持代理,源码,请高手支持
- 哪有QUICKREPORT3。5FORD6下载,十万火急
- 关于菜单权限!请有经验的帮忙!
- 关于RECORD类型的简单的指针操作问题。。有代码,帮帮忙。。(不难~100分)
- 想和开发ie和xp的微软总部设计工程师聊聊软件工程和项目管理吗?
- 我用Read读取文本文件中的一个整数,为什么在当前位置读不到 它就自动跑到下一行去读呢?
- delphi应用sql server的的问题,请高手入内!!
- 怎样改变TReeView里面的图标?
- 关于类的问题
- 帮帮忙,怎样用IWTreeView控件读取后台数据啊
- 急求:TreeView与XML文件之间的增,删,改是怎样映射的?
Shift: TShiftState; X, Y: Integer);
begin
if (sender as TTreeview).Selected<>nil then
(sender as TTreeview).BeginDrag(false);
end;procedure TForm1.TreeView1EndDrag(Sender, Target: TObject; X, Y: Integer);
var T:Ttreenode;
begin
T:=(target as TTreeview).GetNodeAt(x,y);
if T<>nil then (target as TTreeview).Items.AddChild(T,(sender as TTreeview).Selected.Text);end;procedure TForm1.TreeView2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source is TTreeview then
accept:=true;
end;
else
(target as TTreeview).Items.add(nil,(sender as TTreeview).Selected.Text)