如何用鼠标控制Tmemo的滚动条？？

Question

我主要是想鼠标控制Tmemo的滚动条不让其继续滚动。
比如：在写一个控制台程序，而程序是不断往下走的，即在CMD.exe中我点击CMD.EXE运行程序窗口的垂直滚动条而程序就不再运行，而是停止状态，当释放鼠标则程序继续可以运行，不知道可不可以实现这种功能？？

Answer 1

哪位有方法控制Tmemo的滚动条，就是当鼠标按住Tmemo的滚动条，而Tmemo就不会继续滚动；当释放鼠标，则Tmemo会继续滚动，因为Tmemo的内容是在一定的时间内，读取相关的内容，即在一定的时间内，读取文件内容，然后显示在Tmemo上，当然文件的内容会是很多，有可能有上千行，当程序在不断读取时，我想停止读取，就是使用鼠标按住滚动条，不让程序继续读取，而当释放鼠标，则程序继续读取文件的内容。

Answer 2

你试试，
var
  I,J: Integer;
begin
  Memo1.Lines.Clear;
  for I := 0 to 1000000 do
  begin
    Application.ProcessMessages;
    Memo1.Lines.Add(IntToStr(I));
  end;
end;
你上述的功能可以实现。

Answer 3

我在我的程序里加入了这行代码;
Application.ProcessMessages;
但还是不行