Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Выполнить действие при нажатии на слово из текста


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

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

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

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

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

Код

//Абсолютное положение курсора
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;

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

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

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

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

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

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

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

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

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)