请教关于滚动条的控制

Question

1,我用setsel选中指的文字，
    SendMessage(vHandle, EM_SETSEL, vIndex, vIndex + Length(vString));
如何使滚动条移动到选中文本的位置2.  用sendmessage(vhandle,wm_vscroll,SB_LINEDOWN,0); 可以实现滚动条向下移动一行，那要一下子移动n行，该怎么弄？

Answer 1

以Memo为例：
1.Memo1.Perform(EM_SCROLLCARET,0,0);2.var SI:TScrollInfo;
begin
    SI.cbSize:=SizeOf(SI);
    SI.fMask:=SIF_POS;
    with Memo1 do
     begin
       GetScrollInfo(Handle,SB_VERT,SI);
       Perform(WM_VSCROLL,MakeLong(SB_THUMBPOSITION,SI.nPos+3),0);//向下滚动3行
     end;
end;