Treeview的属性设置如下:
MultiSelect := True;
ReadOnly := True;
RowSelect := True;
ShowButtons := False;
ShowLines := False;
ShowRoot := False;我要实现删除Treeview中选中的项,我的代码如下:
for i := tnttv1.Items.Count - 1 downto 0 do
begin
if tnttv1.Items[i].Selected then
tnttv1.Items[i].Delete;
end;但是每次删除会出现全部删除的情况??如何解决??
MultiSelect := True;
ReadOnly := True;
RowSelect := True;
ShowButtons := False;
ShowLines := False;
ShowRoot := False;我要实现删除Treeview中选中的项,我的代码如下:
for i := tnttv1.Items.Count - 1 downto 0 do
begin
if tnttv1.Items[i].Selected then
tnttv1.Items[i].Delete;
end;但是每次删除会出现全部删除的情况??如何解决??
begin
self.treeview1.selected.delete;
end;//
if self.treeview1.selected <>nil then
begin
self.treeview1.selected.delete;
end;//