Hi Leute, ich sitze seit gestern an einem Problem, ich möchte gerne einen TreeView als Ablaufplan haben, wo der User selber den Ablauf bestimmen kann. Um jetzt den Tree zu erstellen habe ich folgenden Code erstellt :
Code:
procedure TConfigurationMain.category_addClick(Sender: TObject);
begin
if category_tree_view.Items.Count = 0 then
category_tree_view.Items.Add(nil,category_name.Text)
else begin
if category_tree_view.Selected.EditText then
category_tree_view.Items.AddChild(category_tree_view.Selected,category_name.Text)
else
category_tree_view.Items.Add(nil,category_name.Text);
end;
category_name.Clear;
end;
Also, wenn ich auf denn Button Klicke soll er einen neuen Eintrag machen, ist nichts makiert, so soll er diesen Eintrag aus dem Edit-Feld als Hauptknotenpunkt machen. Ist ein Punkt makiert, so soll der Eintrag aus dem Edit-Feld als Unterpunkt in den Tree aufgeführt werden. Das mit den Unterpunkten funktioniert ja auch irgendwie. Nur das mit den Weitere haupteinträgen funktioniert nicht richtig. Was mache ich verkehrt ? Hat jemand eine bessere Lösung als die Komponente TTreeView ?