如何在TMemo中使用EM_CHARFROMPOS？

Question

在TMemo中，我想获得（闪烁）插入符号旁边的字符的字符索引。 我尝试过像这样的机器人不起作用：

function TMyMemo.CursorToChar: Integer;      
VAR  Pt: TPoint;
begin
 Pt := CaretPos;
 Result:= Perform(EM_CHARFROMPOS, 0, MakeLong(pt.x, pt.Y));
end;

Answer 1

消息结果的低位字指定传递位置的字符索引。另外，请勿使用CaretPos的{​​{1}}，它会返回一个字符坐标。

TMemo