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 xe 播放 gif 动画

精通Delphi模拟按键

Delphi firedac 下的 sqlite [4] - 创建数据库

Delphi 检测鼠标键盘多久没有活动

Delphi异常信息捕捉

Delphi winapi: writeprivateprofilestring、getprivateprofilestring - 简单读写 ini 文件

Delphi将图片缩放成指定大小

Delphi将字符串转换成utf8编码的函数

Delphi 把修改好的cookies重新赋值给webbrowser1 doc

Delphi memo1 自定义位置插入

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi MEMO 循环往上往下滚动