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

memo1.Text := memo1.Text + '/n' + Buffer;
//定位Memo到底部,显示最新输入
SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);