Eigener Dialog+TOpendialog Umbenennen Funktion über F2 Taste

[eassy]

hallo,

ich lasse mir auf einem Formular mit Hilfe der TFileListBox
Dateien aus einem Verzeichnis anzeigen.
Nun möchte ich aber gerne, wenn ich eine Datei in der TFileListBox
auswähle durch drücken der F2-Taste diese Datei umbenennen.
Das ist im TOpendialog möglich.

Es gibt ja die Funktion

Delphi-Quellcode:

function RenameFile(const OldName, NewName: string): Boolean;

Doch da muss ich ja im Code den neuen Name festlegen.
Und kann das nicht direkt in der TFileListBos eingeben.

Gibt es da irgendeine API-Funktion? :gruebel:
(ich habe bis jetzt in Google, direkt in Delphi und hier im Forum nichts dergleichen gefunden)

Bitte helft mir... Bin voll am verzweifeln.... :wall: :wall:


gruß
eassy

[Luckie]

Willst du mit F2 in den Editiermodus eines Listbox-Items umschalten wie im Explorer? Das geht nicht ohne weiteres, da die Listbox diese Funktionalität nicht bietet. Entwedder du schreibst dir eine neune Komponente, die dies kann, das wird aber ziemlich viel Aufwand sein oder du nimmst einen einspaltigne Listview im Reportmodus und füllst in mittels der Funktion aus der Code-Lib FindFile, da der Listview schon einen eingebauten Editiermodus besitzt.

[eassy]

hallo,

also bis jetzt mache ich das füllen der TFileListbox folgendermaßen:

Delphi-Quellcode:

   res := FindFirst(mask, $23, search);   //Archiv-, Schreibgeschützte und Verstecktedatei
   if res = 0 then
   begin
      try
         while res = 0 do
         begin
            //add the files to the filelistbox
            flboDateien.Items.Add(search.Name);
            res := FindNext(search);
         end;
      finally
         FindClose(search);
      end;
   end;

geht das mit der tlistview auch?

[Luckie]

Ich habe dich doch auf einen Beitrag in der Code-Lib verwiesen. Aber ich dachte, du benutzt eine TFileListbox. Da ist das doch unnötig.

[eassy]

wenn ich auf den link klicke kommt folgende meldung:

Keine Beiträge entsprechen Deinen Kriterien. :gruebel:

[Luckie]

Dann such doch mal selber in der Code-Lib. Ich habe dir ja einen Hinweis gegeben, wo nach du siuchen musst. FindFirst sollte aber richtig sein.

[eassy]

danke. habe ich gemacht, aber irgendwie sitze ich auf der leitung.

wenn ich jetzt anstatt der tfilelistbox eine tlistview nehme,
kann ich die dateien irgendwie nicht sichtbar machen. tlistview bleibt
leer.


und wie komme ich dann in den editiermodus?

[Luckie]

1. In der Hilfe steht, wie man Items einem Listview hinzufügt.

2. Es gibt die Ereignis OnEdit oder so. Weiteres steht auch in der Hilfe.

[eassy]

danke für deine hilfe. da schaue ich gleich mal nach.

:gruebel: werde mich dann wieder melden, falls ich dann immernoch nicht weiter kommen sollte.

[eassy]

so, tlistview habe ich gefüllt,
aber das ich durch drücken der F2-Taste das Item umbenennen
kann habe ich bis jetzt noch nicht hinbekommen.

folgendes habe ich versucht

Delphi-Quellcode:

procedure TfrmOpendialog.lviDateienKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
var
   lEdit: Boolean;
begin
   if (Key = vk_F2) then
   begin
      lEdit := TRUE;
      lviDateienEditing(Sender, lviDateien.Selected, lEdit);
   end;
end;

procedure TfrmOpendialog.lviDateienEditing(Sender: TObject;
   Item: TListItem; var AllowEdit: Boolean);
begin
// was soll ich aber hier machen
end;

kann mir da nochmal jemand bitte helfen....

danke
gruß
eassy