弱智问题！！！抢分啦！（关于TreeView)

1、一个TreeView，RightSelection设为TRUE，ReadOnly为TRUE，如果PopMenu设为空的话，鼠标右键好像无法选择；  
  2、如果设置一个PopMenu，则右键可以选择，但是TreeView.Selected与我实际选中的节点不同，清大侠们指点！ 问题点数：30、回复次数：6Top

1 楼illcat（沙龙巴斯）回复于 2001-07-11 10:37:42 得分 0

补充一下，TreeView的源代码可以从何处得到？谢谢Top

2 楼illcat（沙龙巴斯）回复于 2001-07-11 10:43:49 得分 0

老大们，拜托！Top

3 楼redwoodnymph（new）回复于 2001-07-11 10:44:10 得分 30

procedure   TMainFrm.TreeView1MouseDown(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  begin  
      if   button=mbRight   then  
      begin  
          if   Self.TreeView1.GetNodeAt(X,Y)<>nil   then  
          begin  
              Self.TreeView1.Selected:=Self.TreeView1.GetNodeAt(X,Y);  
              Self.PopupMenu1.Popup(  
                  TreeView1.ClientToScreen(Point(X,Y)).X,TreeView1.ClientToScreen(Point(X,Y)).y);  
          end;  
      end;  
  end;  
   
  试试吧Top

4 楼bpmb2（）回复于 2001-07-11 10:44:52 得分 0

gzTop

5 楼illcat（沙龙巴斯）回复于 2001-07-11 10:48:17 得分 0

redwoodnymph：  
          我先试一试，对了，那TTreeView的源码从哪里可以看到那，我看ComCtrls里面只有TreeView的published属性的定义，其他的都找不到，faint啊Top

6 楼redwoodnymph（new）回复于 2001-07-11 10:56:41 得分 0

是不是要看TCustomTreeView的属性,我也不懂Top

相关问题

• treeview
• self
• begin

• 帖主：illcat
• redwoodnymph

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载