knoten löschen

[Tyrael Y.]

Du hast es doch schon fast gehabt.

Delphi-Quellcode:

procedure TForm1.Knotenlschen1Click(Sender: TObject);

var Node: TTreeNode;
begin
    Node := Baum.Selected;
    if Assigned(Node) then
        Baum.Items.Delete(Node);
end;