请问各位:
我在Treeview 的DblClick中,想得到我当前选中的节点,但是当我点击Treeview中空白的地方,也就是没有选中某一节点,这时取得的节点会是默认选中的那个,我怎么才能实现没选中节点双击返回个空node?请各位指教,嘿嘿,也不是大家看没看懂。
我在Treeview 的DblClick中,想得到我当前选中的节点,但是当我点击Treeview中空白的地方,也就是没有选中某一节点,这时取得的节点会是默认选中的那个,我怎么才能实现没选中节点双击返回个空node?请各位指教,嘿嘿,也不是大家看没看懂。
解决方案 »
- 菜鸟问个关于多媒体定时器(timeGettime)的问题, 急.
- DELPHI2007的大BUG! nvarchar 零长度字符更新 BUG.
- delphi6 操作oracle10g的clob类型
- 在initialization产生系统异常引起进程挂起
- 请教一个简单的关于dbgrid控件的问题
- 用delphi怎么读取其它机器上的文件,文件读取后以文件流或内存流的方式取得
- 简单问题:如何判断流对象(tmemorystream)已经被创建??
- 各位大哥,如何利用rect在form上拉一个半透明填充色的矩形区域?或者......
- 紧急求救(我程序以编好!麻烦帮我修改几个小地方。做完马上送分)
- 菜鸟求163与新浪的邮件服务器名称,急,在线!
- ======偶想申请做VCL版的小版主,希望大家多多支持啊,谢谢=========
- 关于语音编程问题
好像不行阿。
pNode := TreeView1.GetNodeAt(pos.X, pos.Y)
x,y即为该事件里的x,y
treeview.selected.index
两个属性是可以实现的
var
p:TPoint;
Node:TTreeNode;
begin
//
p:=TreeView1.ScreenToClient(Mouse.CursorPos);
Node:=TreeView1.GetNodeAt(p.X,p.Y);
if (Node<>nil )then
ShowMessage('You select the Node: '+Node.Text);
end;procedure TForm1.TreeView1Click(Sender: TObject);
var
MyHitTest : THitTests;
p:TPoint;
begin
p:=TreeView1.ScreenToClient(Mouse.CursorPos);
MyHitTest := TreeView1.GetHitTestInfoAt(p.X,p.Y);
if htNowhere in MyHitTest then
ListBox1.Items.Add('NoWhere');
if htOnItem in MyHitTest then
ListBox1.Items.Add('OnItem');
if htOnButton in MyHitTest then
ListBox1.Items.Add('OnButton');
if htOnIndent in MyHitTest then
ListBox1.Items.Add('OnIndent'); if htOnLabel in MyHitTest then
ListBox1.Items.Add('OnLabel');
if htOnRight in MyHitTest then
ListBox1.Items.Add('OnRight');end;
这两个事件处理过程不知您需要那个,试试吧