Hallo happycell,
Zitat von
happycell:
Hi, wie kann ich es einstellen, dass man in der Filelistbox auf "[..]" und [.] klicken kann um in dieser Filelistbox eine Ebene in der Ordnerstruktur nach oben zu kommen. Und wie kann ich in einer Filelistbox auf einen Ordner klicken, so dass er sich auch in diesem Fenster öffnet.
Mal schnell hingezimmert:
Delphi-Quellcode:
PROCEDURE TForm1.FileListBox1Click(Sender: TObject);
VAR
s : STRING;
BEGIN
WITH FileListBox1 DO
BEGIN
s := ExtractFileName(FileName);
IF s = '[..]' THEN
// Directory nach oben...
// Da musst Du Dir noch etwas einfallen lassen :-)
Directory := 'c:\'
ELSE IF s[Length(s)] = ']' THEN
// Directory wird in der Listbox geöffnet
Directory := IncludeTrailingBackslash(Directory) + copy(s, 2, length(s) - 2);
END;
END;