Привет.
В окне редактирования кода Delphi в любой момент времени можно нажать клавишу Ctrl и, поместив указатель мыши над объектом, добиться выделения слова. Как можно добиться такого выделения в редакторе RichEdit, причем при отпускании Ctrl текст вновь должен восстановиться?
Минут пять назад написал код, но тут же нашел в нем глюки: первое слово выделяться не хочет, когда происходит изменение стиля слова возникает выделение текста, которое должно быть незаметным.

Код

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); var Caret, P: TPoint; n: Integer; begin if (ssCtrl in Shift) then begin  Caret:=RichEdit1.CaretPos; //Чтобы потом поставить курсор на место  P.X:=X;  P.Y:=Y;  with RichEdit1 do   begin    //Вернет номер символа, над которым находится курсор    SelStart:=Perform(EM_CHARFROMPOS, 0, LongInt(@P));    while (Text[SelStart]<>' ') or (SelStart=1) do     SelStart:=SelStart-1;    n:=SelStart+1;    while Text[n]<>' ' do     n:=n+1;    SelLength:=n-SelStart-1;    SelAttributes.Style:=[fsUnderLine]; //Выделяем    CaretPos:=Caret; //Ставим курсор на место, где он и был   end; end; end;

Да... В моем примере меняется стиль любого слова, мне же нужно, чтобы такими выделениями обладали только зарезервированные слова, например, Delphi, Basic, C++, Pascal...

Тишина...
Может кто хочет предложить свой вариант решения?

в SynEdit вроде есть выделение ссылок... поставь его, хороший компонент

Лучше сделать проверку в таймере, чтобы отловлять нажатие/отжатие Ctrl, а то если делать через MouseMove, то чтобы сработало нажатие Ctrl, надо сдвигать мышь...
Вот, накидал примерный вариант как это должно быть:

Код

type  TSelInfo = record    _SelStart, _SelLength : integer;    _HighLight : boolean;  end; var OldSel : TSelInfo; const EmptySel : TSelInfo = (); const BreakChars = [' ', #10, #13, ',', '.']; const ReservedWords : array [0..4] of string =    ('Basic', 'C++', 'Pascal', 'Delphi', 'Vingrad'); procedure TForm1.Timer2Timer(Sender: TObject); var  Caret, P : TPoint;  Sel : TSelInfo;  W : string;  i : integer;  procedure SetStyle (S : TSelInfo; fs : TFontStyles; cl : TColor);  begin    with RichEdit1 do    begin      SelStart := S._SelStart;      SelLength := S._SelLength;      SelAttributes.Style := fs;      SelAttributes.Color := cl;    end;  end; begin  Sel := EmptySel;  with RichEdit1, Sel do  begin    if WindowFromPoint(Mouse.CursorPos) = Handle then    begin      P := RichEdit1.ScreenToClient(Mouse.CursorPos);      _SelStart := Perform(EM_CHARFROMPOS, 0, LongInt(@P));      while (_SelStart > 0) and (not (Text[_SelStart] in BreakChars)) do Dec(_SelStart);      _SelLength := 1;      while (_SelStart + _SelLength < GetTextLen) and (not (Text[_SelStart + _SelLength] in BreakChars)) do Inc(_SelLength);      W := UpperCase(Copy(Text, _SelStart+1, _SelLength-1));      for i := Low(ReservedWords) to High(ReservedWords) do        if UpperCase(ReservedWords[i]) = W then        begin          _HighLight := (GetAsyncKeyState(VK_CONTROL) and $80000000) <> 0;          Break;        end;    end;    if (_SelStart <> OldSel._SelStart) or       (_SelLength <> OldSel._SelLength) or       (_HighLight <> OldSel._HighLight) then    begin      Caret := CaretPos; // ×òîáû ïîòîì ïîñòàâèòü êóðñîð íà ìåñòî      SetStyle (OldSel, [], clBlack);      if _HighLight then      begin        SetStyle (Sel, [fsUnderline], clBlue);        Cursor := crHandPoint;      end      else      begin //        else SetStyle (Sel, [], clBlack);        Cursor := crDefault;      end;      OldSel := Sel;      CaretPos := Caret; // Ñòàâèì êóðñîð íà ìåñòî, ãäå îí è áûë    end;  end; end;