ContextMenue in TFileListBox

**Ykcim**

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:

markieren

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:

zusammenfalten · markieren

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

ContextMenue in TFileListBox

ContextMenue in TFileListBox

Forumregeln