如题

解决方案 »

  1.   

    procedure TForm14.SpeedButton2Click(Sender: TObject);
    var
     i,j:integer;
    begin
    j:=0;
    if (treeview1.Selected.Text<>'数据录入') and (treeview1.Selected.Text<>'数据统计') and (treeview1.Selected.Text<>'报表打印') and (treeview1.Selected.Text<>'系统维护') and (treeview1.Selected.Text<>'数据查询')   then
    begin
    if listbox2.count<>0 then
    begin
     for i:=0 to listbox2.Count-1 do
      begin
        if treeview1.Selected.Text=listbox2.Items[i] then
         j:=j+1;
       end;
    end;
    if j=0 then
    listbox2.Items.Add(Treeview1.Selected.Text);
    end;
    end;
    这段代码的意思是通双击把在listview1所选中的内容放到listbox2中;
      

  2.   

    1: 双击,就是两次单击,不过间隔时间较短,
    2:问题解决:
      mycaption:=listview1.Item[I].Caption;
     或listview1.selected.caption;