ContextMenue in TFileListBox

[Ykcim]

UPS, mein Fehler: Es ist tatsächlich eine Komponente von TMS...

Ich habe es jetzt wie folgt gelöst:

Delphi-Quellcode:

procedure ListFiles(Pfad, FileName: string; FLB: TFileListBoxEx);
begin
   FLB.Clear;
   FLB.Directory:=StringReplace(Pfad,'/','\',[rfIgnoreCase, rfReplaceAll]);
   FLB.Mask:='*'+fileName+'*';
end;

Damit funktioniert es, hat nur den Nachteil, dass ich nicht in Unterordnern nach weiteren Dateien gucken kann, sondern nur in dem zugewiesenen...

Aber ich glaube, so geht es.

@uligerhardt: Ohne den Verzeichnisnamen habe ich es leider nicht realisiert bekommen...

Patrick

[uligerhardt]

Du hast ja den Quellcode der Komponente. Du könntest versuchen, die Zeile
fn := Directory +'\'+Items[i];
durch etwas a la
fn := System.IOUtils.TPath.Combine(Directory, Items[i]);
zu ersetzen (ungetestet ).