Hallo Zusammen,
die Componente TFileListBoxEX hat ja die Option, dass man sich das normal ConTextMenue anzeigen lassen kann, um z.B. Dateien kopieren zu können. Ich aber das Problem, dass ich immer eine Fehlermeldung (Falscher Parameter) bekomme.
Die TFileListBoxEX befülle cih mit nachfolgendem Code:
Delphi-Quellcode:
procedure ListFiles(Pfad, FileName: string; FLB: TFileListBoxEx);
var I: integer;
begin
FLB.Clear;
filename:='*'+fileName+'*';
FLB.Directory:=StringReplace(Pfad,'/','\',[rfIgnoreCase, rfReplaceAll]);
for fileName in TDirectory.GetFiles(FLB.Directory, FileName, TSearchOption.soTopDirectoryOnly) do begin
FLB.AddItem(FileName ,nil);
end;
end;
Der Hintergrund ist, dass ich nur die Information '4711' habe und in der TFileListBoxEX alle Dateien mit diesem Teilstring im Dateinamen angezeigt werden sollen.
Das Ergebnis ist, dass ich die in der TFileListBoxEX den Pfad und den Dateiname sehen (\\192.168.178.69\Zeichnungen\Z_4711.pdf)
Der Fehler passiert hier ind der
Unit FlCtrlEX:
Delphi-Quellcode:
procedure TFileListBoxEx.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
{$IFDEF DELPHIXE2_LVL}
var
i: integer;
fn:
string;
{$ENDIF}
begin
inherited;
{$IFDEF DELPHIXE2_LVL}
if (Button = mbRight)
and SystemContextMenu
then
begin
i := SendMessage(
Handle, LB_ITEMFROMPOINT,0, MakeLong(X,Y));
if (i >= 0)
and (i < Items.Count)
then
begin
ItemIndex := i;
fn := Directory +'
\'+Items[i];
ShowSysContextMenu(fn, ClientToScreen(Point(X,Y)));
end;
end;
{$ENDIF}
end;
Ich glaube, dass es in der Zeile
fn := Directory +'\'+Items[i];
passiert. Mir ist aufgefallen, dass Directory den Pfad enthält (\\192.168.178.69\Zeichnungen) und item[i] den Pfad und den Dateinamen (\\192.168.178.69\Zeichnungen\Z_4711.pdf). Zusammen ergibt das \\192.168.178.69\Zeichnungen\\\192.168.178.69\Zeic hnungen\Z_4711.pdf. Das ist natürlich falsch.
Hat jemand eine Idee, was ich korrigieren muss? Ich vermute, dass es in der Art und Weise, wie ich die TFileListBoxEX befülle unglücklich läuft...
Vielen Dank
Patrick