Как узнать какая буква под курсором в RichEdit?

← →
тт (2006-06-02 17:44) [0]

В TMemo то можно так:
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
c :integer;
w :word;
begin
longint(c):=SendMessage(Memo1.Handle,EM_CHARFROMPOS,0,MAKELPARAM(x,y));
if c<>-1 then
begin
w:=LoWord(cardinal(c));
self.Caption:=tr2.Text[w];
end;
end;

А в TRichEdit, если пользоваться таким же способом, выдает ошибку.

Так как же узнать какая буква под курсором в RichEdit?

← →
MBo © (2006-06-02 18:21) [1]

В MSDN посмотри справку по этому сообщению - для Richedit оно используется иначе

← →
Чапаев © (2006-06-02 19:05) [2]

RichEdit1.Lines.Text[RichEdit1.SelStart] -- так?

← →
тт (2006-06-02 19:09) [3]

...Чапаев © (02.06.06 19:05) [2]

RichEdit1.Lines.Text[RichEdit1.SelStart] -- так?

Что-то я сомневаюсь, сейчас проверю.

Так я и не понял.
А это вообще элементарно делается?

> тт (02.06.06 19:09) [3]
> А это вообще элементарно делается?

Угу.

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var P: TPoint; begin P := Point(X, Y); with Sender as TRichEdit do Caption := Text[Perform(EM_CHARFROMPOS, 0, Integer(@P))] end

← →
тт (2006-06-02 20:53) [5]

Как узнать какая буква под курсором в RichEdit? Найти похожие ветки