关于ScrollBar ( 积分: 100 )

使用ScrollBar1(水平)时，要编写关于左箭头的点击事件要怎么办？就是在position为0时怎么判断时左箭头还是右箭头

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
{TScrollCode = (scLineUp, scLineDown, scPageUp, scPageDown, scPosition,
scTrack, scTop, scBottom, scEndScroll);}
//用ScrollCode就能判断了
end;

接受答案了.