关于两棵树之间的拖动问题,,在线很快就结贴!!!! 有两棵树,用树1和树2表示,因为我要在树1上要实现右键点击节点产生弹出菜单,所以把rightclickselect选为了true,,现在我要实现从树2上拖动节点到树1的任意节点上,(而此时树1的selected焦点在哪儿我不知道),现在的问题是:我从树2拖动节点到树1上某个节点时,我怎么知道我把该拖动的鼠标放在了哪个节点上(也就是说我怎么知道这个节点是哪个节点?),,谢谢!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TmpNode: TTreeNode;TmpNode := TreeView.Selected;if TmpNode <> nil then ...; 回chinajavis(我选择 我喜欢) :当我拖放后我试了这个属性选不中 好象是不行,那可以这样做,根据鼠标所在的位置获得受放的结点procedure TForm1.TreeView2DragDrop(Sender, Source: TObject; X, Y: Integer);var HT: THitTests; TmpNode: TTreeNode;begin HT := TreeView2.GetHitTestInfoAt(X, Y); if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then begin TmpNode := TreeView2.GetNodeAt(X, Y); if TmpNode <> nil then ShowMessage(TmpNode.Text); end;end; to wanwangzhiwang(万王之王):不好意思,我刚才给错了,本来也给你的,但是不小心给错了,以后看到你多给你点!~~~ delphi有前途吗 如何解决双层Image闪烁问题? SQLSERVER数据库,中表之间的数据迁移 打印监控 请问在程序中如何将Excel直接转换为DBF 我最新做的一下进销存软件,请大家多提宝贵意见! 谁有用delphi做的2000上的service的例子 无可奈何的选择-delphi + dbf数据库(200分,如果问题能够解决还可另加) 以后会少来CSDN了,放分! 如何让程序运行时检测进程,发现指定进程就不运行程序. 关于字符串问题: 请问XP+Delphi6.0怎样调试dll,我怎么都进入不了断点,请各位大虾指点!!
TmpNode := TreeView.Selected;
if TmpNode <> nil then
...;
procedure TForm1.TreeView2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
HT: THitTests;
TmpNode: TTreeNode;
begin
HT := TreeView2.GetHitTestInfoAt(X, Y);
if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then
begin
TmpNode := TreeView2.GetNodeAt(X, Y);
if TmpNode <> nil then
ShowMessage(TmpNode.Text);
end;
end;