VPF::Выполнить действие при нажатии на слово из текста

belkeandrey

Дата 4.3.2013, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.2.2013

Репутация: нет
Всего: нет

Ребята, подскажите, пожалуйста! Есть текст в формате rtf, который при нажатии на кнопку на форме, открывается в RichEdit. Мне необходимо, чтобы при нажатии на определенное слово уже открытого на форме текста, выполнялось действие: отрывалось фото или видео, т.е. по типу ссылки. В делфи пока новичок. Подскажите, как реализовать...

Akella

Дата 5.3.2013, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

RTF для этого не предназначен.
Ты не сможешь в тексте назначить обработчик собатия или назначить ссылку выделенному куску текста.

Добавлено через 1 минуту и 32 секунды
Можно сделать так.
В обработчике onClick получаешь данные о том, где стоит курсор. Относительно курсора получаешь слово на котором он стоит. Проверяешь, если слово = "фото", то запускаешь такую-то процедуру, а если "видео", то другую.

Добавлено через 2 минуты и 13 секунд
Но ты путаешь интернет браузер и редактор rtf.

belkeandrey

Дата 6.3.2013, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.2.2013

Репутация: нет
Всего: нет

Все очень неплохо получилось) Если кому нужно, листинг ниже. Делается с помощью координат указателя.

Код


//Абсолютное положение курсора
function TForm1.RECharIndexByPos(RichEdit: TRichEdit; X,
  Y: Integer): Integer;
var
  P: TPoint;
begin
  P := Point(X, Y);
  Result := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, longint(@P));
end;

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
  i,k,kol:Integer;
  S:String;
begin
 HideCaret(RichEdit1.Handle);
 S:='тренажер';//нужное слово
 kol:=8;//кол символов
 I:=RECharIndexByPos(RichEdit1,X,Y);//положение курсора
 if Pos(S,RichEdit1.Text)<>0 then
 if (I>Pos(S,RichEdit1.Text)-1)and (I<Pos(S,RichEdit1.Text)+(kol-1)) then
 image1.Visible:=true;
 end;

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i,k,kol:Integer;
  S:String;
begin
 HideCaret(RichEdit1.Handle);
 S:='тренажер';
 kol:=8;
 I:=RECharIndexByPos(RichEdit1,X,Y);
 if Pos(S,RichEdit1.Text)<>0 then
 if (I>Pos(S,RichEdit1.Text)-1)and (I<Pos(S,RichEdit1.Text)+(kol-1)) then
 begin
 richedit1.SelStart:=-1;

 //richedit1.SelLength:=kol;
 //richedit1.SelAttributes.Color:=clRed;
 RichEdit1.SelAttributes.Style:=[fsBold];
 RichEdit1.Cursor:=crHandPoint;
 //richedit1.SelStart:=0;
 end
 else RichEdit1.Cursor:=crDefault;

  end;

Это сообщение отредактировал(а) belkeandrey - 6.3.2013, 11:17

Akella

Дата 6.3.2013, 11:53 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

А если в слове тренажёр будет ошибка, опечатка? А если будева "e" будет латиницей? Или первая буква будет не "т", а "Т"?

belkeandrey

Дата 6.3.2013, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.2.2013

Репутация: нет
Всего: нет

В данном случае это не страшно. У меня есть готовые тексты, в которых я точно знаю где мне делать ссылку, т.е. ошибки тут быть не может.

Akella

Дата 6.3.2013, 14:02 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

Ну... если частный случай и есть уверенность, что тексты меняться не будут, то да, можно

belkeandrey

Дата 19.3.2013, 23:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 21.2.2013

Репутация: нет
Всего: нет

Ребят, сделал таким образом ссылки, все работает идеально. Искомые слова и пути стал записывать в txt, оттуда и вывожу. Но вот проблема: большой текст и 150 ссылок, все тормозит(((( Что предпринять, скоро сдавать работу(((

Файл с проектом в приложении...

Присоединённый файл ( Кол-во скачиваний: 4 )

проба2.rar 907,83 Kb

Akella

Дата 20.3.2013, 01:24 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329

ужас... а почему слева в окне текст нереально "бегает", когда я вожу мышкой даже по пустому месту в правом окошке?

Но у меня не тормозит, наверное, потому что, под капотом 8 лошадей

Добавлено через 44 секунды
нужно ведь на click реагировать, а не на mousemove

DYUMON

Дата 20.3.2013, 06:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3

замени свои rtf текста на html текста и используй htmlview . настроишь обработку переходов по гипер ссылкам и будет тебе счастье.

--------------------

Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »