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;