50元做个功能。RichEdit1自动翻页，不能遮挡字体。(50)

高度261 ，宽661，从word拷贝进来，字体有大有小，我的目的自动翻页，然后抓图，要求上下边缘不能遮挡字体。因为抓图，给LED屏显示给你个函数function TForm1.ScrollIsMax: Boolean;var iPos, MinPos, MaxPos: Integer;begin GetScrollRange(RichEdit1.Handle, SB_VERT, MinPos, MaxPos); iPos := GetScrollPos(RichEdit1.Handle, SB_VERT); //Result := MaxPos = iPos; if iPos >= (MaxPos - MinPos - RichEdit1.Height) then Result:=True else Result:=false;end;while not ScrollIsMax do begin //滚动下一幅 //SendMessage(RichEdit1.Handle,WM_VSCROLL,SB_PAGEDOWN, 0); richedit1.Perform(wm_vscroll,sb_pagedown,0); end;懒了，不愿意思考了，反正也不是给老板打工。

再加个0还差不多

字体有大有小比较麻烦

嘿嘿，能做出来再说这个话。

楼主留个qq,我把demo发给你

好的QQ:116704104