🚀 go-pugleaf

I would like to drag files (just file names) from windows explorer into a Borland control.  Here is the implementation from the Developers Guide:

1) in the main form constructor, add:
	DragAcceptFiles(Handle,true);

2) set up a message map in the mainform class:
	.
	.
	private:
	   void virtual __fastcall WMDropFiles(TWMDropFiles &message);

	public:
 	   BEGIN_MESSAGE_MAP
	   MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
	   END_MESSAGE_MAP

3) write the handler:
	void __fastcall WMDropFiles(TWMDropFiles &message)
	{
		String filename;
		int count;
   		count = DragQueryFile((HDROP)message.Drop,0xFFFFFFFF,NULL,MAX_PATH);

   		for(int i=1;i<count; i++)
   		{
      			filename.SetLength(DragQueryFile((HDROP)message.Drop,i,fname.c_str(),MAX_PATH));
      			FileListBox1->Items->Add(filename);
   		}
   		DragFinish((HDROP)message.Drop);
	}

Seems easy enough. But when I compile and run this code, the app crashes into the CPU window, and the call stack shows pages of calls to TForm1::Dispatch().  I commented all the code out of the handler, and put breakpoints in the message map and in the call to DragAcceptFiles().  I never hit a breakpoint, and crash every time.  

Am I missing something very basic?  

Using BCB5. Also, what would I use the TFileListBox's OnDragDrop method for?  Drag/drop within the application?


Thanks for any help...


Mike