Per Drag and Drop Datei einfügen.

[Die Muhkuh]

Servus,


ich hab ne Listview und in die möcht ich per Drag & Drop ne Dateieinfügen so das der Name der Datei erscheint. Es sollte etwa so sein wie in AlphaCode von Mirage (*Werbung mach* ). Aber wie mach ich das? Die Datei/n sollten danach per E-Mail verschickt werden (Das probier ich aber selber aus).

Spider

[Christian Seehase]

Moin Spider,

such' hier mal nach DragAcceptFiles da müsstest Du Beispiele finden, wie Drag & Drop mit Dateien funktioniert.

[Uncle Cracker]

Du könntest die Delphisuche nutzten: Drag Drop

oder hier mal gucken: Auf mich kann man klicken oder hier: Auf mich kann man auch noch klicken

[Die Muhkuh]

Sorry, aber keiner der Code ist nützlich

[Christian Seehase]

Moin Spider,

dann sag' doch mal genauer, wo Du die Schwierigkeiten hast.
In der Ergebnisliste der Suche waren immerhin fast schon Copy&Past taugliche Lösungen enthalten.

[SirThornberry]

Delphi-Quellcode:

procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;
[...]
  DragAcceptFiles(form1.handle, True); 
[...]
procedure TForm1.WMDROPFILES (var Msg: TMessage);
var i, anzahl, size, lastcount, wdh1: integer;
    Dateiname: PChar;
    tmpLied: PTLied;
begin
  inherited;
  Dateiname := '';
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    //dateiname auswerten (kann auch ein ordner sein)

    StrDispose(Dateiname);
  end;


  DragFinish(Msg.WParam);

end;