windows - 在外部应用程序文本区域中设置插入符位置？

Question

感谢 Rob Kennedy 在 how to set the Skype Chat window text. 上对我的问题的回答

但是，每当我使用

设置文本时

SendMessage(RichEditWnd,WM_SETTEXT,0,Integer(PChar(Edit1.Text)));

然后，当我在 Skype 中单击“聊天编辑”控件时，插入符号位于开头，需要单击一些才能使其再次“正确”。

是否有用于设置插入位置的 Windows 消息？或者至少我可以用来将 Carret Position 设置到文本末尾的东西？ :)

Answer 1

是的，有:EM_EXSETSEL .

wParam 应该是 0，lParam 应该是指向包含第一个和选择中的最后一个字符。您希望它们相等(即选择零个字符)。

例如，

var
  cr: TCharRange;
begin
  cr.cpMin := 2;
  cr.cpMax := 2;
  SendMessage(RichEdit1.Handle, EM_EXSETSEL, 0, integer(@cr));

将在 Rich Edit 控件中的第三个字符之前设置插入符号。