Re: Getting word in place of the caret

Return to index

Author

Message

Yernar

Posted: 12/20/2002 14:50:48

procedure TForm1.RichViewEdit1RVMouseUp(Sender: TCustomRichView;

  Button: TMouseButton; Shift: TShiftState; ItemNo, X, Y: Integer);

begin

  StatusBar1.SimpleText := RichViewEdit1.GetWordAt(X, Y);

end;

"Dimitry Kopitkov" <dima_kopitkov@hotmail.com> wrote:

>

>But with this way the position of caret will be changed.

>I need something that not affect the position of caret.

>

>

>

>"Yernar" <yernar@mail.ru> wrote:

>>

>>SelectCurrentWord method selects a word in the position of caret.

>>GetSelText method returns the selected part of the document as a text.

>>

>>

>>"Dimitry Kopitkov" <dima_kopitkov@hotmail.com> wrote:

>>>

>>>How can i get word in place of the caret?

>