怎样判断ScrollBox的滚动条已经滚动？？？

Question

有一个ScrollBox,我该如何判断这个Scrollbox的滚动条是否已经滚动？

Answer 1

ScrollBAR不是有一个ONSCROLL的事件吧？当发生滚动时候就触发这个事件，另外也可用一个全局变量来放置ScrollBAR的POSITION，当这个数不等于当前的POSITION，则发生了滚动

Answer 2

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
beginend;

Answer 3

to ghyghost(爱国人士) 
你这个是Scrollbar的事件！在Scrollbox中没有这个事件的

Answer 4

定义消息事件捕获系统消息
procedure WMHScroll(var message: TWMHScroll); message wm_HScroll;
procedure TMyTree.wmHScroll(var message: TWMHScroll);
begin
  //Your code
end;procedure WMVScroll(var message: TWMVScroll); message wm_VScroll;
procedure TMyTree.WMVScroll(var message: TWMVScroll);
begin
  //Your code
end;

Answer 5

if ScrollBar1.Position = ScrollBar1.Min then
   没滚
else
   有滚;