什么意思。with treeview1.selected do
begin
  Caption:='new caption';
  for i:= 0 to count do
     item[i].caption:='nc'+inttostr(i);
end;

解决方案 »

  1.   

    比如选中一个条目后,再单击它就可以对它的Caption进行编辑了。使用哪个方法或消息能开始编辑Caption?
      

  2.   

    procedure TForm1.TreeView1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    begin
      case Key of
        VK_F2: if Assigned(TTreeView(Sender).Selected) then
          TTreeView(Sender).Selected.EditText;
      end;
    end;
      

  3.   

    谢谢啦。帮助里没找到EditText啊,还是个函数。