Código Delphi [-] procedure TForm1.btnNuevoClick(Sender: TObject); var node: TTreeNode; begin // Agregar a continuación del Item actualmente seleccionado node := TreeView1.Items.Add(TreeView1.Selected, 'Nuevo'); // Hacer a node el nuevo Item seleccionado TreeView1.Selected := node; TreeView1.SetFocus; end;
procedure TForm1.btnNuevoClick(Sender: TObject); var node: TTreeNode; begin // Agregar a continuación del Item actualmente seleccionado node := TreeView1.Items.Add(TreeView1.Selected, 'Nuevo'); // Hacer a node el nuevo Item seleccionado TreeView1.Selected := node; TreeView1.SetFocus; end;