Question

delphi 如何把RichEdit的滚动条移动到指定行？

将富文本控件randrecord的光标定位到指定位置后，通过以下程序无法
把RichEdit的滚动条移动到光标所在行。如何把RichEdit的滚动条移动到指定行？
SetScrollPos(randrecord.Handle, SB_HORZ, Perform(EM_LineFromChar, -1, 0), True)

Answer 1

给你两种方法：
1.
richedit1.Lines.Move(0,strtoint(trim(edit1.Text))-1); //把这里的edit1.text改成你想要的行数；就行；
这只是最基础的，其他的想要实现可以再加
2.
var
i:integer; //这是你想跳到的行数；
str:string;
begin
richedit1.setfocus;
for i:= 0 to i do str:=str+richedit1.lines[i];
str:=str+(i*2);
richedit1.selstart:=str;
richedit1.sellength(richedit1.Lines.ValueFromIndex[i]);
end;
这个定位更准确点；