TreeView - Archiv erstellen

[atgis]

Aha...Danke!

Also das umbenennen der Ordner funktioniert:

Delphi-Quellcode:

//Node Umbenennen mit rechtsklick
procedure TForm1.Umbenennen1Click(Sender: TObject);
begin
 Form3.showmodal;
 RenameFile(TreeView1.Selected.Text,form3.edOrdnername.text);
 TreeView1.Selected.Text:=Form3.edOrdnername.Text;
end;

//Node Umbenennen
procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
 RenameFile(TreeView1.Selected.Text, S);
end;

Leider lassen sich aber die Txt's nicht umbenennen...An was liegt das?



Das mit den ShowModale...leuchtet mir ein. Man muss ja die Form auch schließen könn...aber meine Form3 sieht so aus:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
 Form3.close;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
 edOrdnername.text:=form1.treeview1.selected.text;
end;

Ich weiß jetzt nicht wie ich das mrOk zurückgeben kann...

EDIT: Ich kann auch mal den kompletten Quellcode hochladen...wenns was nützt...

EDIT2: Wie kann ich das TreeView auf einen Inhalt überprüfen? Also nur ob schon was drin steht oder nicht? Es sollte dann bloß true oder false zurückgeben...