不知下面消息处理方法是否写得正确？

Question

点TREEVIWE滚动条后，做折线重绘操作，写了下面的代码，点SCROLLBAR后，没有反应，不知下面消息处理方法是否写得正确？
procedure TForm1.WMVSCROLL(var Msg:TWMVSCROLL);
 begin
  iNum:=0;
    iNumber:=0;
    if Msg.ScrollCode =SB_PAGEDOWN  then//滚动条向下滚
     begin
     
        //自定义的折线绘制方法
      FlexLinePaint(nLine[iNum].xa,nLine[iNum].ya,nLine[iNumber].xb,nLine[iNumber].yb-5);
      iNum:=iNum+1;
      iNumber:=iNumber+1;
   end;
 end;

Answer 1

声明的时候有message吗？procedure WMVSCROLL(var Msg: TWMVSCROLL); message WM_VSCROLL;

Answer 2

procedure WMVSCROLL(var Msg: TMessage); message WM_VSCROLL;