Question

delphi richedit平滑滚动

如何让richedit里面的文字平滑向上滚动？
我现在是这样写的：
SendMessage(redt1.Handle,WM_VSCROLL,SB_LINEDOWN,0); //逐行滚动
用一个timer控件实现一直向下滚动，但有一个问题，他的滚动不是平滑。
用redt1.scrollby(0,-5)这样的，却又使文字变形了（或者如何使文字不变形）。
高手帮忙一下怎么解决。

Answer 1

据说这样可以：

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int nPos = GetScrollPos(RichEdit1->Handle, SB_VERT);
SendMessage(RichEdit1->Handle, WM_VSCROLL, MAKELONG(
SB_THUMBPOSITION, nPos+1), 0);
}

这个虽然是C++ Builder的，不过Dephi应该也可以用的，试一下吧。

Answer 2

var
nPos : Integer;

nPos := GetScrollPos(REdt1.Handle, SB_VERT);
SendMessage(REdt1.Handle, WM_VSCROLL, MAKELONG(
SB_THUMBPOSITION, nPos+1), 0);