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 优化mdb文件

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

Delphi 利用sendinput模拟鼠标键盘

Delphi把域名转换成ip

Delphi 合并字符串的函数

Delphi embeddedwb 遍历frames并执行子frame的js脚本

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

Delphi 如何读取文件头 判断文件类型

Delphi中txmldocument控件的用法

adoquery 实现获取数据库所有表名

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

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