什么意思。with treeview1.selected do
begin
Caption:='new caption';
for i:= 0 to count do
item[i].caption:='nc'+inttostr(i);
end;
begin
Caption:='new caption';
for i:= 0 to count do
item[i].caption:='nc'+inttostr(i);
end;
Shift: TShiftState);
begin
case Key of
VK_F2: if Assigned(TTreeView(Sender).Selected) then
TTreeView(Sender).Selected.EditText;
end;
end;