RichEdit问题

Question

请问如何取得带滚动条的RichEidt在y轴已经滚动了多少

Answer 1

procedure TForm1.RichEdit1EndDrag(Sender, Target: TObject; X, Y: Integer);procedure TForm1.RichEdit1DragDrop(Sender, Source: TObject; X, Y: Integer);
在开始拖动的时候，记录x,y值，在结束的时候再记录xy值，你想怎么计算都可以！

Answer 2

showmessage(inttostr(getscrollpos(richedit1.Handle,SB_VERT)));