memo1.Text := memo1.Text + '/n' + Buffer;
//定位Memo到底部,显示最新输入
SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);
delphi memo 自动滚动到最底下
最新推荐文章于 2022-12-30 09:55:36 发布
memo1.Text := memo1.Text + '/n' + Buffer;
//定位Memo到底部,显示最新输入
SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);