TButton Design

[M1ndgr4ve]

Ja das ist mir klar. Nur ist es halt grad im Moment meine Aufgabe das zu tun. Also die Grafische Oberfläche einrichten.
Aber damit du weisst um was es geht hier n bisschen Code hab ewig lange gebraucht bis es geklappt hat.

procedure TForm1.EntfernenClick(Sender: TObject);
begin
node.DeleteChildren;
end;

procedure TForm1.HinzufügenClick(Sender: TObject);
begin
node :=Treeview1.GetNodeAt (KX, KY);
TreeView1.Items.AddChild(Node,Eingabe.Text);
end;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TmouseButton;
Shift: TshiftState; X, Y: Integer);
begin
node :=TreeView1.GetNodeAt(X,Y);
KX :=X;
KY :=Y;

Sinn der Sache ist es einen Tree zu bauen wo ich über ein Edit fenster eingegebene sachen über Buttonklick direkt als Child in den Tree übertragen kann und auch wieder löschen wenn man es nicht mehr braucht.