各位老大:
两个一摸一样的treeview控件
treeview中的items也一样我在treeview1中选中一个节点,要在treeveiw2中自动让相同位置的节点也选中,
怎么实现????

解决方案 »

  1.   

    procedure TForm1.TreeView1Click(Sender: TObject);
    begin
      TreeView2.SetFocus;
      TreeView2.Items[TreeView1.Selected.AbsoluteIndex].Selected := True;
    end;
      

  2.   

    将两个TreeView的HideSelection属性设为False
    TreeView2.Items[TreeView1.Selected.Index].Selected := true;
      

  3.   

    Index应改为AbsoluteIndex
    TreeView2.Items[TreeView1.Selected.AbsoluteIndex].Selected := true;
      

  4.   

    procedure TForm1.TreeView1Change(Sender: TObject);
    begin
      TreeView2.SetFocus;
      TreeView2.Items[TreeView1.Selected.AbsoluteIndex].Selected := True;
    end;
      

  5.   

    procedure TForm1.TreeView1Change(Sender: TObject);
    begin
      if TreeView1.Selected <> nil then
      begin
        TreeView2.SetFocus;
        TreeView2.Items[TreeView1.Selected.AbsoluteIndex].Selected := True;
      end;
    end;
      
      

  6.   

    同志们,TreeView的OnChange事件不是那样的