有两棵树,用树1和树2表示,因为我要在树1上要实现右键点击节点产生弹出菜单,所以把rightclickselect选为了true,,现在我要实现从树2上拖动节点到树1的任意节点上,(而此时树1的selected焦点在哪儿我不知道),现在的问题是:我从树2拖动节点到树1上某个节点时,我怎么知道我把该拖动的鼠标放在了哪个节点上(也就是说我怎么知道这个节点是哪个节点?),,谢谢!!!
解决方案 »
- 如何知道都有哪些用户正在和数据库相连
- delphi中如何设置弹出对话框呀,解决了就马上给分~!!!
- 求将数字金额转化为中文金额的函数?
- ***进来看一下,我的DCOM配置错了还是漏了?
- 请教高手,是否能用控件WordDocument操作WORD文档,具体用法是什么?
- 怎樣在表單調用sql中的存儲過程,帶參數的呢?在後台用exec+存儲過程名我知道。可前台呢?
- 找不到所需的 .DLL 文件 - VCLADO50.BPL
- 请大这帮助我一下,谢谢指教.
- 如何让StatusBar一闪一闪的,谢了。在先等待。解决马上给分
- 动态数组的使用
- 关于字符串问题:
- 请问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;