Per Drag and Drop Datei einfügen.
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* :mrgreen: ). Aber wie mach ich das? Die Datei/n sollten danach per E-Mail verschickt werden (Das probier ich aber selber aus). Spider |
Re: Per Drag and Drop Datei einfügen.
Moin Spider,
such' hier mal nach DragAcceptFiles da müsstest Du Beispiele finden, wie Drag & Drop mit Dateien funktioniert. |
Re: Per Drag and Drop Datei einfügen.
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 |
Re: Per Drag and Drop Datei einfügen.
Sorry, aber keiner der Code ist nützlich :oops:
|
Re: Per Drag and Drop Datei einfügen.
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. |
Re: Per Drag and Drop Datei einfügen.
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz