delphi 控制Memo1滚动条

Memo1.Perform(EM_LINESCROLL, 0, -Memo1.Lines.Count);//滚动到最顶部

Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count); //滚动到最底部

Memo1.Perform(EM_LINESCROLL, 0, 1);

Memo1.Perform(EM_LINESCROLL, 0, 10);