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

[Kassper]

Как сделать чтобы в RichEdit при нажатии на определенное слово становилось Image1.Visible := True; ?

[Дима я]

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:Integer;
begin
for i:=0 to RichEdit1.Lines.Count do begin
If RichEdit1.Lines[i]='Слово' then
Image1.Visible:=True;
end;
end;

[W0LF]

Дима я Вы понимаете разницу "при нажатии на определенное слово" и тем что вы написали? Это ж просто перебор строк и сравнение его с неким словом ... Еще и в таймере, к тоже с ошибкой.

for i:=0 to RichEdit1.Lines.Count - 1 do begin

P.S.: а как вы будете отлавливать клик, если OnClick у RichEdit нету...

[Дима я]

Пардон.....Не понял сразу
Как насчет OnMouseDown?

[Kotofff]

Kassper, держи проект.
Дальше я думаю сам. Потому как все что тебе нужно там есть и работает.

[Kassper]

Kotofff что то я не совсем понял как это работает

[Kotofff]

Что именно не понятно ?
Вот. Прикрепил тот же проект, но с комментариями и изменениями.

[Kassper]

Kotofff у меня этот вообще не открываеться, ну в общем когда первый открываю у меня вылазиет ошибка типо у ричэдита нету онклика...

[Kotofff]

Какая версия Delphi ?
Дай проект посмотреть свой ... если он есть ...

[bitSoft]

Ne znaiu kak u tebya no u menya rabotaet, i skaji spasibo u Kotofff za primer, ono toshto tebe nujno.