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

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

前面你的声明呢，是不是忘了 message WM_VSCROLL;

写了声明的