RichEdit слова с условиями

[Дима я]

У меня тоже не открылось.
Delphi 7.
Попробуй такой вариант .Работает,правда в случае если нужное слово в тексте не одно будет работать только на первом из них

[Kassper]

Kotofff у меня Delphi 7 проект... ну...это просто так сказать учебник мне нужно для ЕГЭ сделать вот...

Uchebnik.rar

[Kassper]

Дима я окей теперб мне нужно чтобы при наведении курсора на СЛОВО курсор становился "пальцем" ну тоесть как при наведении на ссылку а выделить слово я и сам смогу

[Kotofff]

Я вижу думать вообще не хотим. Причем тут "не запускается" ?! Ведь там в архиве есть pas-файл в котором с комментариями все расписано !
Значит так:
1) у твоего компонента RichEdit есть событие OnMouseMove. В Инспекторе Задач сделай двойной клик на данном событии - компилятор создаст новую процедуру:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

2) для достижения смены курсора на нужный тебе - замени созданную процедуру вот такой :

{
  Процедура на событии OnMouseMove компонента RichEdit, которая при перемещении мыши по
  компоненту RichEdit помещает слово под курсором мыши в глобальную переменную _Word
  далее с которой можно работать как хочешь ...
}
procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  iCharIndex, iLineIndex, iCharOffset, i, j: Integer;
  Pt: TPoint;
  s: string;
begin
  with TRichEdit(Sender) do
  begin
    Pt := Point(X, Y);
    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    if iCharIndex < 0 then Exit;
    iLineIndex  := Perform(EM_EXLINEFROMCHAR, 0, iCharIndex);
    iCharOffset := iCharIndex - Perform(EM_LINEINDEX, iLineIndex, 0);
    if Lines.Count - 1 < iLineIndex then Exit;
    s := Lines[iLineIndex];
    i := iCharOffset + 1;
    while (i > 0) and (s[i] <> ' ') do Dec(i);
    j := iCharOffset + 1;
    while (j <= Length(s)) and (s[j] <> ' ') do Inc(j);
    _Word := Copy(s, i, j - i);// наше слово (слово под курсором мыши)
    // изменяем курсор над нужным словом ...
    if LowerCase(Trim(_Word)) = LowerCase(Trim(_Word0)) then
      RichEdit1.Cursor := crHandPoint // если находимся над эталонным словом
      else RichEdit1.Cursor := crDefault; // если нет - курсор обычный
  end;
end;

здесь: _Word и _Word0 - это строковые переменные, в _Word при перемещении мыши над RichEdit`ом помещается слово под курсором, а _Word0 - это эталонное слово над которым курсор будет "превращаться".

3) в секцию uses пропиши модуль RichEdit, т.е. должно быть примерно так :

uses
  RichEdit, Windows, Messages, SysUtils ....

[Дима я]

Тоже самое,только весь код из OnMouseDown перекидываешь в OnMouseMove /И вместо Image1.Visible:=True; добавляешь

begin
 Image1.Visible:=True;
RichEdit1.Cursor := crHandPoint;
end
else
RichEdit1.Cursor := crDefault;

[Kassper]

Спасибо всем=)