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 删除或清空一个目录(包含多级)

Delphi 取16进制字符的10进制的integer值

Delphi 之前解析串口数据

Delphi firedac连接mysql的时候报错

Delphi 2009 之 tcategorypanelgroup[5]: headerstyle

Delphi研究之驱动开发篇(五)--使用后备列表

Delphi 内存加载并运行exe程序

Delphi x 的 y 次方

Delphi 修改ie首页代码

Delphi 64位汇编编程

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...