Delphi MEMO 循环往上往下滚动
Posted windson
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Delphi MEMO 循环往上往下滚动相关的知识，希望对你有一定的参考价值。
// 循环往上滚动 if Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0 then begin Memo1.Perform(WM_VSCROLL,SB_TOP,0); end else begin SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDOWN,0); end; // 执行到底 SendMessage(Memo1.Handle, EM_SCROLL, SB_BOTTOM, 0); //一步一步往下走 SendMessage(Memo1.Handle,WM_VSCROLL,SB_LINEDOWN,0); // 往下走 SendMessage(Memo1.Handle,EM_SCROLL,SB_PAGEDOWN,0); if Memo1.Perform(EM_SCROLL, SB_LINEDOWN, 0)=0 then//下滚 button2.Enable := False; if Memo1.Perform(EM_SCROLL, SB_LINEUP, 0)=0 then//上滚 button1.Enable := False;
以上是关于Delphi MEMO 循环往上往下滚动的主要内容，如果未能解决你的问题，请参考以下文章