這幾天，搜尋了不少的文章、討論區 也試了好多次，RichEdit可以捲動scroll 但是若RichEdit編輯區域，在未滿一頁時 要如何將游標移至某一行？ SelStart的方式，不可行，因為編輯中 字數會新增、減少。 真的沒有甚麼指令，可以在RichEdit中 將游標移至某一行嗎？

引言: 這幾天，搜尋了不少的文章、討論區 也試了好多次，RichEdit可以捲動scroll 但是若RichEdit編輯區域，在未滿一頁時 要如何將游標移至某一行？ SelStart的方式，不可行，因為編輯中 字數會新增、減少。 真的沒有甚麼指令，可以在RichEdit中 將游標移至某一行嗎？

var i,j,n:integer; s:string; begin n:=2; // 移到第二行 s:=memo1.Lines.Text; j:=1; for i:=1 to length(s) do begin if (j=n) then begin memo1.SelStart:=i; break; end; if s[i]=#13 then inc(j); end; end; 先試試看! ～～～Delphi K.Top討論區站長～～～

試試下面的做法(跳至第 5 行第 10 格):

with RichEdit1 do begin
  SelStart := Perform(EM_LINEINDEX, 5, 0)   10;
  Perform(EM_SCROLLCARET, 0, 0);
  SetFocus;
end;

太感謝兩位的幫忙，現問題已經解決了 先前也有試過EM_LINEINDEX， 但沒有執行EM_SCROLLCARET 以致於沒有動作。 在這個討論區，有各位的幫忙 真是太好了................

引言: 試試下面的做法(跳至第 5 行第 10 格):

with RichEdit1 do begin
  SelStart := Perform(EM_LINEINDEX, 5, 0)   10;
  Perform(EM_SCROLLCARET, 0, 0);
  SetFocus;
end;

謝謝回覆,又多學一招! ～～～Delphi K.Top討論區站長～～～