频道分类

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

作者:admin 来源: 日期:2020/3/23 9:12:24 人气: 标签:

 
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监视注册表的变化下一篇:没有资料