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...