delphi - 移动 TRichEdit Caretpos

Question

有没有办法改变插入符号的像素位置？

我想每次移动鼠标时都移动护理点。

喜欢:

鼠标移动: MoveCaretPos(X, Y);

Answer 1

不，您不能将插入符号的位置设置在特定点，而必须将插入符号设置在字符位置。为此，您必须使用 EM_CHARFROMPOS消息检索到指定点最接近的字符，然后将返回的值设置为 SelStart属性。

检查此示例

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
 APoint  : TPoint;
 Index   : Integer;
begin
   APoint := Point(X, Y);
   Index :=  SendMessage(TRichEdit(Sender).Handle,EM_CHARFROMPOS, 0, Integer(@APoint));
   if Index<0 then Exit;
   TRichEdit(Sender).SelStart:=Index;
end;