richedit1中选中的文字为什么不能出现在可以看见的范围内？而需拖动滚动条来找？

Question

我把焦点放回form1上了，但在form1上的richedit1中选中的文字为什么不能出现在可以看见的范围内？而需拖动滚动条来找？
文字是在程序中被选中的

Answer 1

var
  ScrollLn : integer;
begin
  Editor.SelStart := Editor.Perform(EM_LINEINDEX, LineNum, 0);//LineNum 是行号;
  ScrollLn := LineNum - Editor.Perform(EM_GETFIRSTVISIBLELINE, 0, 0)-1;
  Editor.Perform(EM_LINESCROLL, 0, ScrollLn);
  Editor.SetFocus;
end;