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;