Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: EDIT bei TreeView

    Delphi
    by Noteip, 7. Jul 2008
  Also ich würde das so machen:
  procedure TForm1.Button1Click(Sender: TObject);
  var
  new_node: TTreeNode;
  begin
  if treeview1.Selected.AbsoluteIndex = 0 then begin
  new_node := treeview1.Items.AddChild(treeview1.Selected,'Neues Project');
  treeview1.Selected := new_node;
  treeview1.SetFocus;
  end;