TEdit 根据鼠标光标获取角色 ID

Question

我之前发布了一个基于儿童表单的问题。如果没有子窗体，插入符号就是您单击 TEdit 的位置。 使用以下代码，我可以将焦点放在文本末尾的 TEdit 和插入符号上：

edt2.SetFocus;
edt2.SelStart := Length(edt2.Text);

这是我想要做的 99% 的事情。 我找到了可以获取鼠标光标位置的代码，它在 TRichEdit 上完美运行，但在 TEdit（或 TMemo）上不起作用。我为 TEdit 上的 MouseDown 编写了它。作为测试，我将其复制到 MouseMove。在这两种情况下，我得到的唯一结果是 -1

procedure TfrmClientManager.edt1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  iCharIndex: Integer;
  Pt: TPoint;
begin
  with TEdit(Sender) do
  begin
    Pt := Point(X, Y);
    // Get Character Index from word under the cursor
    iCharIndex := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@Pt));
    Caption := IntToStr(iCharIndex);
  end;

编辑：
修复了 SetFocus 的输入错误。

编辑：
根据 Remy Lebeau，以下内容 100% 有效

edt2.SetFocus;
edt2.SelStart := LOWORD(TEdit(Sender).Perform(EM_CHARFROMPOS, 0, MAKELPARAM(X, Y)));

Answer 1

EM_CHARFROMPOS 与 TEdit 配合得很好。但是，如果您阅读其文档，您将可以看到 RichEdit 控件与 Edit 控件的输入和返回值非常不同：

参数

wParam

未使用此参数。

lParam

控件工作区中点的坐标。坐标以屏幕单位为单位，并且相对于控件工作区的左上角。

丰富的编辑控件：指向包含水平和垂直坐标的POINTL结构的指针。

编辑控件： LOWORD 包含水平坐标。 HIWORD 包含垂直坐标。

返回值

丰富的编辑控件：返回值指定最接近指定点的字符的从零开始的字符索引。如果指定点超出控件中的最后一个字符，则返回值指示编辑控件中的最后一个字符。

编辑控件： LOWORD 指定最接近指定点的字符的从零开始的索引。该索引相对于控件的开头，而不是行的开头。如果指定点超出编辑控件中的最后一个字符，则返回值指示控件中的最后一个字符。 HIWORD 指定包含该字符的行的从零开始的索引。对于单行编辑控件，该值为零。如果指定点超出行中最后一个可见字符，则索引指示行分隔符。

您显示的代码适用于 RichEdit 控件，而不是 Edit 控件。

试试这个：

procedure TfrmClientManager.edt1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  iCharIndex: Integer;
begin
  // Get Character Index from word under the cursor
  iCharIndex := LOWORD(TEdit(Sender).Perform(EM_CHARFROMPOS, 0, MAKELPARAM(X, Y)));
  Caption := IntToStr(iCharIndex);
end;