dxTreelist双击节点的时候,触发什么事件????(300分)

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

我本来在dxtreelist的双击事件中运行一段代码:
例如:
procedure TForm1.dxTreeList1DblClick(Sender: TObject);
var
Node: TdxTreeListNode;
begin
Node := dxTreeList1.FocusedNode;
ShowMessage(Node.Values[0]);
end;

可是现在的问题出现了,当FocusedNode选择一个子节点的时候,
我点击前面的root(不是node)进行展开和收缩,速度很快的时候,形成双击
从而导致上面的代码调用,怎么避免??

 

M

maolu28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

procedure TForm1.dxTreeList1DblClick(Sender: TObject);
var
Node: TdxTreeListNode;
begin
Node := dxTreeList1.FocusedNode;
if node.Count=0 then //判断是否存在子结点
ShowMessage(Node.Values[0]);
end;

 

H

HeXiang Lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

在Mouse 的OnMouseUp时
dxTreeList1.GetNodeXXXXasPos(Point) 这样就可以知道你刚刚点的节点了

 

裴

裴小锴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #4

to :maolu28
还有别的法子吗？？？

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #5

我要的是点击"+"或者“－”的时候，不响应我的双击事件
关于node.count这样就只有最底层的子节点才能双击事件，可是我所有的节点都要有双击
事件，只是＋，－不要而已。

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #6

EASY， 加两三句话就能满足你的要求了：
var
Node: TdxTreeListNode;
pt: TPoint;
begin
GetCursorPos(pt);
pt := dxTreeList1.ScreenToClient(pt);
if dxTreeList1.GetHitInfo(pt).hitType <> htButton then
begin
Node := dxTreeList1.FocusedNode;
ShowMessage(Node.Values[0]);
end;

 

S

smallsun007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #7

up

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #8

晕，我的方法基本和xianjun差不多

procedure TForm1.dxTreeList1DblClick(Sender: TObject);
var
Node: TdxTreeListNode;
ClientPoint: TPoint;
begin
Node := dxTreeList1.FocusedNode;
//为了获得坐标
ClientPoint := dxTreeList1.ScreenToClient(Mouse.CursorPos);
if Node = dxTreeList1.GetNodeAt(ClientPoint.X,ClientPoint.Y) then
ShowMessage(IntToStr(Node.Values[0]));
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #9

这样也可以？ []
不过呢，我那个才是“标准”的办法，看当前鼠标双击的是什么类型的节点
是Button，Icon还是其他，如果是Button（即+、-），则不触发你的事件。

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #10

：）总之谢谢你才是，我就是不知道那个+,-应该用什么判断 ：）

 

M

maolu28

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #11

不好意思，题目理解错误！
下面是TreeView控件的例子：
procedure TForm1.TreeView1DblClick(Sender: TObject);
var
ClientPoint: TPoint;
begin
ClientPoint := TreeView1.ScreenToClient(Mouse.CursorPos);
if htOnItem in TreeView1.GetHitTestInfoAt(ClientPoint.X,ClientPoint.Y) then
ShowMessage('ok');
end;
希望对您有帮助！

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #12

多人接受答案了。