Drag & Drop von Listbox in Explorer

[Aurelius]

Hi DPler :hi:

ich habe versch. Einträge in einer normalen Listbox. Hinter jedem Eintrag "versteckt" sich ein kompletter Pfad zu einer Datei. Wie kann ich es nun realisieren dass, wenn ich einen Eintrag per Drag & Drop in den Explorer ziehe, die jeweilige Datei in den jeweiligen Ordner zu kopieren?

Gefunden habe ich dazu bis jetzt nur http://swissdelphicenter.ch/de/showcode.php?id=2335, aber das funktioniert so ja nicht mit einer Listbox. Eigenlich muss ich nur wissen wie ich den Pfad des Ordners, in den ich hineindragge, herausbekomme. Den Rest kann ich ja mit FileCopy(oder wie der Befehl jetzt heißt) machen.

[bitsetter]

Zitat:

Zitat von xX0815Xx

aber das funktioniert so ja nicht mit einer Listbox.

Hi,

IMHO brauchst du nur den Code an der Stelle

Delphi-Quellcode:

      SelFileList := TStringList.Create;
      try
        SelFileList.Capacity := SelCount;
        for i := 0 to Items.Count - 1 do
          if Selected[i] then SelFileList.Add(Items[i]);

im Ereignis onMouseMove in der ListBox anpassen. Also du übergibst der SelFileList deine versteckten Pfade zu den Dateien.

[Aurelius]

Bie dieser Zeile funktioniert das ganze aber nicht.

Delphi-Quellcode:

DoDragDrop(DataObject, Self, DROPEFFECT_COPY, Effect);DoDragDrop(DataObject, Self, DROPEFFECT_COPY, Effect);

[bitsetter]

Was funktioniert nicht, kommt eine Fehlermeldung oder kannst du das Programm nicht kompilieren?

[Aurelius]

Beim Kompilieren kommt dann:

Inkompatible Typen: Listbox und pDropSource

[bitsetter]

Das kommt, weil du

Delphi-Quellcode:

TForm1 = class(TForm, IDropSource)

vergessen hast. Hier das Programm dazu, wie du siehst geht es auch mit einer Listbox.

[Aurelius]

Super, danke schön :thumb:

[Aurelius]

So, ich hab mal versucht das Ganze in mein Programm einzubauen nur leider funktioniert es nicht.

Delphi-Quellcode:

    if (SelCount > 0) and (csLButtonDown in ControlState)
      and ((Abs(X - FDragStartPos.x) >= Threshold)
      or (Abs(Y - FDragStartPos.y) >= Threshold)) then
      begin...

Hier kommt nie ein TRUE bei mir raus, ergo arbeitet er die folgenden Befehle nicht ab.

Ich habe so die Vermutung, dass der Grund dafür der ist dass ich auch folgenden code nutze: http://www.delphipraxis.net/internal...869&highlight=

[Aurelius]

:duck: *push* :duck:

[NickelM]

Also ich glaube es liegt in der If..then Anweisung. Du kannst mit Klammern festlegen, was zusammen gehört und was nicht.

Du willst ja das die obere Zeile und die 2 Unteren Zusammen gehörten, dann must du das so machen

if ((SelCount > 0) and (csLButtonDown in ControlState))
and (((Abs(X - FDragStartPos.x) >= Threshold)
or (Abs(Y - FDragStartPos.y) >= Threshold))) then
begin...

Oder habe ich es falschverstahnden???