TreeView - Archiv erstellen

[marabu]

Hallo,

im Prinzip ja, das Ereignis OnEdited() von TTreeView gibt dir die nötigen Informationen. Der Knoten Node hat beim Eintritt in deine Eregnisbehandlung noch den alten Wert und in S wird dir der neue Text angeboten. Die Prozedur zum Umbenennen von Dateien und Verzeichnissen heißt RenameFile().

Übrigens solltest du bei ShowModal immer auch eine Abbruchmöglichkeit vorsehen:

Delphi-Quellcode:

//Unterpunkt erstellen
procedure TForm1.Unterpunkt1Click(Sender: TObject);
begin
  //Maske für SubNodeNamen
  if Form3.ShowModal = mrOK then
  begin
    { ... }
  end;
end;

Für deine Zwecke würde vielleicht auch InputQuery() oder InputBox() ausreichen. Und denke daran, dass du das Einfügen von Knoten auf Level 2ff unterbinden musst.

Freundliche Grüße