Захват текста под курсором мыши - C++ - Ответ 1918559

void __fastcall TForm3::RichEdit1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
try{
int j, i, iCharOffset, iLineIndex, iCharIndex;
   AnsiString  s;
   POINT Pt = {X, Y};
   // Get Character Index from word under the cursor
   iCharIndex = RichEdit1->Perform(EM_CHARFROMPOS, 0, (int)&Pt);
   if (iCharIndex >= 0) {
      // Get line Index
      iLineIndex  = RichEdit1->Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);
      iCharOffset = iCharIndex - RichEdit1->Perform(EM_LINEINDEX, iLineIndex, 0);
      if ( (RichEdit1->Lines->Count - 1) >= iLineIndex) {
         // store the current line in a variable
         s = RichEdit1->Lines->Strings[iLineIndex];
         // Search the beginning of the word
         i = iCharOffset + 1;
         while( (i > 0) && (s[i] != ' ')) i -= 1;
         // Search the end of the word
         j = iCharOffset + 1;
         while ((j <= s.Length()) && (s[j]!= ' ')) j += 1;
         // Display Text under Cursor
         s=s.SubString(i+1, j - 1);
         Caption= myList.Searh(s.c_str());
      }
   }
   }
 
   catch(...) {
       exit;
   }
 
}