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中;