RichEdit中如何实现循环滚动？

[wlei007]

需要在RichEidt中显示较大文本，所以让RichEidt一行行的滚动，可问题是是如何实现循环不断的滚动显示其中的文字呢？就像网页里的文字循环滚动一样。参考了网上的贴子，只实现了从第一行到最后一行的一遍滚动，大家给点帮助了。

[happyct]

SendMessage(RichEdit1->Handle, EM_SCROLL, SB_LINEUP, 0); //向上滚动一行
SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0); //向下滚动一行

while(true)
{
SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0); //向下滚动一行
Application->ProcessMessage();
sleep(1000); //停顿时间
}

[wlei007]

happyct，你给的代码好像不行哦，编译都过不了。另外我是需要当文字滚到最后一行后，还能又从第一行循环滚动显示。

[Libran]

你是说循环时把第一行放在最后一行下面？

[happyct]

我给的代码编译通不过？是这一行SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);吧？改成RichEdit1->Handle总没问题吧 ):

这个循环是死循环，我是为了方便，才这样写的，具体你要怎么用，按自己的意思修改就可以，没有这么适合你的现成代码

[wlei007]

我的意思是如何实现当滚动到最后一条后，可以继续从第一行开始滚动显示。happyct的方法可以滚动，但是到了最后一行就停下不滚了。实再不行我想当滚到最后一行后把滚动条返回到第一行在从新滚也可以，但是怎么把滚动条从最后返回到第一样呢？希望各位大虾给点意见了，谢谢！