🚀 go-pugleaf

dear builders,

again a strange drag 'n drop problerm...
i want my programm to be able to recognize folders
and drop their file-content into my ListBox (name: FileBox)
so, i've tryed the below code..the while loop seems to work
but after more testing, i have note that my ListBox is not longer
working properly - the OnClick, OnDoubleClick, OnKeyPress
and other Events are not working at all...WHY???

what is wrong here again...? i know the problem is in the while loop
but can someone describe it to me so i can fix it...?



thanks for any help....


Oren

/*************************************************************/
void __fastcall TfrmMainUnit::WMDropFiles(TWMDropFiles &Message)
{
    int ilFilesCount, ilStrLength;
    char caFileName[MAX_PATH];

    ilFilesCount = DragQueryFile((HDROP)Message.Drop, -1, NULL, 0);

    // step through all dropped files - even if they are folders...
    /*****************************************************************/
    for(int ilIndex = 0; ilIndex < ilFilesCount; ilIndex++)
    {
      ilStrLength = DragQueryFile((HDROP)Message.Drop,ilIndex,NULL,0);
      DragQueryFile((HDROP)Message.Drop, ilIndex, caFileName, ilStrLength+1);


      // is it a folder...?
      /*****************************************************************/
      if(FileGetAttr(caFileName) & faDirectory)
      {
         String filename = caFileName, wildcard = "\\*.*", strResult = filename + wildcard;

         char const * Result = strResult.c_str();

         TSearchRec searchRecord;
         int result = FindFirst(Result, faAnyFile ^ faDirectory, searchRecord);

         while(result == 0)
         {
           // ***** HERE'S THE WIRED ERROR *****

           if(IsAscii(caFileName)) // is it a text-file..?
           {
               FileBox->Items->Add(searchRecord.Name);
           }
           result = FindNext(searchRecord);
         }
         FindClose(searchRecord);
      }
      /*****************************************************************/
      else
      {
         if(IsAscii(caFileName))  // is it a text-file..?
         {
            FileShow(caFileName);
            SaveRegFiles();
            FileBox_Operations();
         }
         else
         {
            MessageBox(NULL, msg_BinaryFile.c_str(), msg_BinaryFileTitle.c_str(),
            MB_OK|MB_DEFBUTTON2|MB_ICONWARNING|MB_SETFOREGROUND|MB_TOPMOST);
         }
      }
      if(ilFilesCount > 1) txtCurrentFile->Text = caFileName;
    }
}