About: Drag and Drop   Sponge Permalink

An Entity of Type : owl:Thing, within Data Space : 134.155.108.49:8890 associated with source dataset(s)

First, make sure to add ShellAPI to your uses clause, then use the DragAcceptFiles function in the OnCreate event for the form that will accept them. This will tell Windows to send WM_DROPFILES messages to the application that is registered to accept dropped files, for example: procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; Then create a procedure that process the WM_DROPFILES message procedure DropFiles(var msg: TMessage ); message WM_DROPFILES; Example implementation:

AttributesValues
rdfs:label
  • Drag and Drop
rdfs:comment
  • First, make sure to add ShellAPI to your uses clause, then use the DragAcceptFiles function in the OnCreate event for the form that will accept them. This will tell Windows to send WM_DROPFILES messages to the application that is registered to accept dropped files, for example: procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; Then create a procedure that process the WM_DROPFILES message procedure DropFiles(var msg: TMessage ); message WM_DROPFILES; Example implementation:
sameAs
dcterms:subject
dbkwik:delphi/prop...iPageUsesTemplate
abstract
  • First, make sure to add ShellAPI to your uses clause, then use the DragAcceptFiles function in the OnCreate event for the form that will accept them. This will tell Windows to send WM_DROPFILES messages to the application that is registered to accept dropped files, for example: procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; Then create a procedure that process the WM_DROPFILES message procedure DropFiles(var msg: TMessage ); message WM_DROPFILES; Example implementation: procedure TForm1.DropFiles(var msg: TMessage ); var i, count : integer; dropFileName : array [0..511] of Char; MAXFILENAME: integer; begin MAXFILENAME := 511; // we check the query for amount of files received count := DragQueryFile(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME); // we process them all for i := 0 to count - 1 do begin DragQueryFile(msg.WParam, i, dropFileName, MAXFILENAME); // dropFileName now has the current filename of dropped object. // ** // do something :D // ** end; // release memory used DragFinish(msg.WParam); end;
Alternative Linked Data Views: ODE     Raw Data in: CXML | CSV | RDF ( N-Triples N3/Turtle JSON XML ) | OData ( Atom JSON ) | Microdata ( JSON HTML) | JSON-LD    About   
This material is Open Knowledge   W3C Semantic Web Technology [RDF Data] Valid XHTML + RDFa
OpenLink Virtuoso version 07.20.3217, on Linux (x86_64-pc-linux-gnu), Standard Edition
Data on this page belongs to its respective rights holders.
Virtuoso Faceted Browser Copyright © 2009-2012 OpenLink Software