Как зная координаты каретки в Memo получить индекс ?

← →
Alex_C © (2006-10-16 14:29) [0]

Как зная Memo.CaretPos получить индекс относительно начала текста (тот что согласуется с SelStart)?

← →
han_malign © (2006-10-16 14:32) [1]

function EMCaretPos(Handle: THandle): Integer; var P: TPoint; begin Windows.GetCaretPos(P); Result:=SendMessage(Handle,EM_CHARFROMPOS,0,MakeLong(P.X, P.Y)); end;

← →
Джо © (2006-10-16 14:33) [2]

EM_CHARFROMPOS

← →
Джо © (2006-10-16 14:34) [3]

> [2] Джо © (16.10.06 14:33)
> EM_CHARFROMPOS

Не видел [1].

То han_maling: так не работает, работает так:

function GetMemoCaretIndex( ControlMemo: TMemo ) : Integer;
var
P: TPoint;
begin
Windows.GetCaretPos(P);
Result:= SendMessage(ControlMemo.Handle,EM_CHARFROMPOS,0,MakeLong(Word(P.X), Word(P.Y))) - ControlMemo.CaretPos.Y*65536;
end;

Почему?

справку читаем, ага?
The return value specifies the character index in the low-order word and the line index in the high-order word.

Как зная координаты каретки в Memo получить индекс ? Найти похожие ветки