Zitat von
marabu:
Und denke daran, dass du das Einfügen von Knoten auf Level 2ff unterbinden musst.
Ja genau richtig! Ich dachte es langt wenn ich es so mache:
Delphi-Quellcode:
//Unterpunkt erstellen
procedure TForm1.Unterpunkt1Click(Sender: TObject);
begin
//Maske für SubNodeNamen
Form3.ShowModal;
//SubNode erstellen
TreeView1.Items.AddChild(TreeView1.Selected,Form3.edOrdnername.text);
try Memo.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+NodeText(TreeView1.Selected, 0, '\')+'\'+Form3.edOrdnername.text+'.txt');
except
ShowMessage('Weitere Verzweigung nicht möglich!');
end;
end;
Aber der Punkt wird ja trotzdem erstellt...dann kommt erst die Meldung...Wie unterbinde ich das am besten? Man müsste quasi, wenn man in einem Unterpunkt ist das Level[1] nicht zulassen...Oder?