TreeView als Ablaufplan selber erstellen

[Christian Seehase]

Moin Rolf,

die AccessViolation dürfte daher kommen, dass Du die Eigenschaft Selected benutzt, ohne vorher geprüft zu haben, ob denn überhaupt ein Item Selected ist. Wenn nicht gibt Selected nil zurück, und somit wird beim Zugriff auf Selected.EditText eine Exception ausgelöst.

Bei mir sähe das so aus:

Delphi-Quellcode:

procedure TConfigurationMain.category_addClick(Sender: TObject);
begin
  if category_tree_view.Items.Count = 0 then
  begin
    category_tree_view.Items.Add(nil,category_name.Text);
  end
  else
  begin
    category_tree_view.Items.AddChild(category_tree_view.Selected,category_name.Text);
  end;
  category_name.Clear;
end;