TreeView - Archiv erstellen

[atgis]

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?