最近发现richedit控件添加数据时,垂直滚动条不自动跟随添加的数据向下滚动,在网上找了段代码。 procedure TForm1.Button9Click(Sender: TObject); var i:Byte; stat,len:Byte; begin RichEdit1.Lines.Clear; for i:=1 to 30 do begin RichEdit1.Lines.Add('TestAppcation'+IntToStr(i)); Delay(300); SendMessage(RichEdit1.Handle,EM_SCROLL,SB_LINEDOWN,0) end; end;