急急急!!我搞不明白!那位大哥能帮我以下吗? mousedown事件处理,这个node.selected := true 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你在TreeView1的MouseDown事件中加入:(TV等于TreeView1)procedure TForm1.TVMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var MyHitTest : THitTests; Node : TTreeNode;begin MyHitTest := TV.GetHitTestInfoAt(X,Y); if (htOnLabel in MyHitTest)then begin Node := TV.GetNodeAt(X, Y); TV.Selected := Node; endend;是不是左右键都可以选择了! liang_z(千山一刀之忍者神龟) !叫我怎么不谢谢您吗?你的解答是完全正确的,但我真的很苯!不明白为什么要那样的解决吗?谢谢您的解答!您能给我解释以下吗? 取一下你鼠标点是什么地方!这个地方如有一个TreeNode你就选中这个TreeNode! 其实这样也是可以的,但你仔细测试一下,还是有点差别的,你不要点在节点上!procedure TForm1.TVMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var// MyHitTest : THitTests; Node : TTreeNode;begin// MyHitTest := TV.GetHitTestInfoAt(X,Y); Node := TV.GetNodeAt(X, Y); if Node<>nil then TV.Selected := Node;end; 怎样读取这个ini文件? 公司买了很多套Delphi2006 最近发现一个免费的电影网站还不错,给大家分享一下,顺便散点分 QuickReport 如何能在预览前取得总页码 Richedit的换行问题??? 出现这种提示是什么意思? 文件上传到FTP某一文件夹下 随后自动复制或剪切到另一文件夹下 VOD的菜单条 ?????? Delphi单元文件的疑问 在wise中如何执行一个外部程序,等他执行完再接着继续 如何向列表框或组合框中一次性加入查询到的结果?
(TV等于TreeView1)procedure TForm1.TVMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MyHitTest : THitTests;
Node : TTreeNode;
begin
MyHitTest := TV.GetHitTestInfoAt(X,Y);
if (htOnLabel in MyHitTest)then
begin
Node := TV.GetNodeAt(X, Y);
TV.Selected := Node;
end
end;是不是左右键都可以选择了!
这个地方如有一个TreeNode
你就选中这个TreeNode!
但你仔细测试一下,
还是有点差别的,
你不要点在节点上!
procedure TForm1.TVMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
// MyHitTest : THitTests;
Node : TTreeNode;
begin
// MyHitTest := TV.GetHitTestInfoAt(X,Y);
Node := TV.GetNodeAt(X, Y);
if Node<>nil then
TV.Selected := Node;
end;