我现在作了一个treeview,并且已经做好了节点,我想实现用鼠标选择后选择的项显示在edit控件里,现在的问题是选择一个就会显示一个,我想同时选择两个或以上,都显示在edit里,那位高手帮忙解决一下?急!!!

解决方案 »

  1.   

    给个思路:procedure TForm1.TreeView1Click(Sender: TObject);
    var
      Str: String;
      i: integer;
    begin
      Str := '';
      TreeView1.MultiSelect := True;
      for i := 0 to TreeView1.Items.Count - 1 do
      begin
        if TreeView1.Items.Item[i].Selected then
          Str := Str + TreeView1.Items.Item[i].Text;
      end;
      Edit1.Clear;
      Edit1.Text := Str;
    end;
      

  2.   

    这样的问题看Help就有了
    Determines whether the user can select more than one tree node at a time.Delphi syntax:property MultiSelect: Boolean;The following code uses Item to add the labels of all child nodes of the selected node to a list box when a button is clicked.procedure TForm1.Button1Click(Sender: TObject);var
      I : Integer;
    begin
      for I := 0 to (TreeView1.Selected.Count - 1) do
        ListBox1.Items.Add(TreeView1.Selected.Item[I].Text);
    end;
      

  3.   

    treeview.multiselect:=true;
    然后用上面的方法就可以