delphi TMemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现

本文整理自网络，侵删。

 
Memo1.DoubleBuffered:=True; // 使用双缓冲，减少TMemo字符串数据闪烁
Memo1.Lines.BeginUpdate;  // 加入该行保证Memo中不会出现任何闪烁
Memo1.SelStart:=memo1.GetTextLen;
Memo1.SelText:='abc123[luther.gliethttp]';
If memo1.GetTextLen >= Memo1.MaxLength then
Memo1.Clear;
SendMessage(Memo1.Handle,EM_LINESCROLL,0,Memo1.Lines.Count); // 如果不加入BeginUpdate,那么滚动条将自动跳到结尾,如果使用了BeginUpdate,那么这里必须设置滚动条
Memo1.Lines.EndUpdate;
 

相关阅读 >>

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi中的instrrev函数(倒找文本)

Delphi 去除 tstringlist 重复项

Delphi研究之驱动开发篇（六）--利用section与用户模式程

Delphi 如何通过进程句柄判断该进程是否已退出？

Delphi firemonkey限制tedit只能输入数字的完美方法

Delphi 数据异或校验

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi实现百度地图经纬度与地址互转

Delphi 写log的代码(按日期)

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

转载请注明出处：木庄网络博客 » delphi TMemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现