【求助】请问Delphi6里面的Treeview控件怎么用啊?

Question

请问Delphi6里面的Treeview控件怎么用啊?我想点击其中一个tree,它就可以弹出一个窗口或者执行我的一段命令,这怎么实现啊?是不是还有其他的控件可以像Treeview这个样子并且可以执行自己编写的程序的啊?请各位高手帮帮我啊

Answer 1

看看这个
http://tech.jetdown.com/info/13766.htm

Answer 2

如果仅仅是想响应鼠标点击就直接在click里写代码就行了，
如果还要响应其他就在mousedown里写，大概是吧，不知道你要干什么！
这是帮助里的代码：
______________________________________________________________________________
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var
  MyHitTest : THitTests;
begin
  MyHitTest := TreeView1.GetHitTestInfoAt(X,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;

Answer 3

直接在click事件里写吧， 如果你要知道用户点即的是那个node。 用level 属性（级数，相当于几层），或者AbsoluteIndex属性（绝对序号）