还是TREEVIEW问题，我苯死了。(50分)

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #1

我想：
单击节点的+号时，生成子树。
单击节点的TEXT，则在右边的LISTVIEW中显示。。。。
现在我在ONMOUSEDOWN中写代码，无论是点+号，还是点TEXT，都是干一种事。
如何把他们分开来处理？

 

A

autumn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #2

ttree.onExpanded even

 

D

delphisnail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-30

• #3

点+相当于OnExpanded事件
单击是OnClick事件

 

布

布衣客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #4

使用ObMousedown是不对的。
单击Node，可以使用Onchange或者Onchanging事件。
展开Node，可以使用OnExpand或者Onexpanding事件。
当然，如果非要用ONMOusedown,可以用GetNodeAt来判断光标所在位置的Node。

 

C

cryrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #5

就是展开事件嘛

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #6

检查THitTests，下面是一个例子。
procedure TForm1.TreeMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
MyHitTest: THitTests;
begin
case Button of
mbLeft: begin
MyHitTest := Tree.GetHitTestInfoAt(X, Y);
if ((htOnItem in MyHitTest) or (htOnLabel in MyHitTest)) then
begin
　　　　　　……
end
end;
mbRight: begin
　　　　　……
end;
end;
end;

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #7

现在是这样的：
程序启动后，TREEVIEW自动会选一个ITEM的TEXT。
下面的判断是永远成立的。
MyHitTest := Tree.GetHitTestInfoAt(X, Y);
if ((htOnItem in MyHitTest) or (htOnLabel in MyHitTest)) then
begin
　　　　　　……
end
所以还是没区分加号和TEXT。 ：（

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #8

有人吗？

 

G

gam1979

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #9

faint,去看看windows事件

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #10

解决了。：）

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-31

• #11

多人接受答案了。