你把memo的滚动条隐藏起来,然后自己计算文字在memo的行数,重新设定memo的高就行了,然后用timer进行如下控制:
if nScroll_GongGao = 1 then begin
RichEdit1.Top:= RichEdit1.Top - nGongGaoStep;
if RichEdit1.Top + RichEdit1.Height < 0 then
RichEdit1.Top:= Panel2.Height;
end;
nScroll_GongGao是一个richedit是否滚动的标示变量,等于1就滚动,非1就不滚动
nGongGaoStep是一个int型的滚动步长变量