Drag and Drop does not work anymore in my project in delphi
问题 This topic obviously has been hitted over and over again here, but now I just run out of options from my point of view. OS: Windows XP SP3 So, here is Drag and Drop example for RichEdit I use in my app: procedure TForm1.AcceptFiles( var msg : TMessage ); // or TWMDROPFILES const cnMaxFileNameLen = 255; var i, nCount : integer; acFileName : array [0..cnMaxFileNameLen] of char; begin // find out how many files we're accepting nCount := DragQueryFile( msg.WParam, // or msg.Drop $FFFFFFFF,