Drag / Drop Tutorial

[haentschman]

...Guten Morgen...

...ich muß dann auch mal ein Erfolgserlebnis loswerden.

- per Drag/Drop Files in einen Ordner kopieren und in FileListBox anzeigen.
DocVerzeichnis: Zielordner
FileListBox.Directory: Zielordner

Delphi-Quellcode:

procedure TJvFileListBox.DropFiles(var Msg: TMessage);
var
  i, Anzahl, Size: integer;
  SourcePfad: PChar;
  Dateiname: String;
  Pfad: String;
begin
  inherited;
  Anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, SourcePfad, 255);
  SetForegroundWindow(FAnlagenkomponenten.Handle);
  if MessageDlg('Kopieren von ' + IntToStr(Anzahl) + ' Dateien nach ' + FAnlagenkomponenten.DocVerzeichnis.Text + ' ?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      for i := 0 to (Anzahl - 1) do
        begin
          Size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
          SourcePfad:= StrAlloc(Size);
          DragQueryFile(Msg.WParam,i , SourcePfad, Size);
          Pfad:= ExtractFilePath(StrPas(SourcePfad));
          Dateiname:= Copy(StrPas(SourcePfad),Length(Pfad)+1,Length(StrPas(SourcePfad))- Length(Pfad));
          CopyFile(SourcePfad,PChar(FAnlagenkomponenten.DocVerzeichnis.Text + '\'+ Dateiname),false);
          StrDispose(SourcePfad);
        end;
      FAnlagenkomponenten.JvFileListBox1.Update;  
    end;
  DragFinish(Msg.WParam);
end;

...und es funktioniert

Danke noch einmal an alle die mich unterstützt haben...