使Form响应滚轮事件

这里只举个纵轴的例子，利用Delphi的VCL控件的原有代码还是比较方便的，代码如下：

MouseWheel

procedure  TfrmMain.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint;  var  Handled: Boolean);
var
  Lpos,LHeight :integer;
begin
   // 确保FORM的 AutoScroll : =  False; Scaled : =  True;
   // 要在窗体建立或者内容载入的时候设置好 VertScrollBar.Range visible
   // 根据实际的内容长度来设置VertScrollBar.Range
  LHeight : =  VertScrollBar.Range  -  ClientHeight;
   // 注意form的 ClientHeight和Height的区别
   if  LHeight  <=   0   then  Exit;
  IF WheelDelta  >   0  THEN
    Lpos : =  VertScrollBar.Position  -  VertScrollBar.Increment
  ELSE
    Lpos : =  VertScrollBar.Position  +  VertScrollBar.Increment;
   if   Lpos  >  LHeight  then
     Lpos : =  LHeight  ;
   if   Lpos  <   0    then
     Lpos : =   0 ;
   if  VertScrollBar.Position  - Lpos   <>   0   then
   begin
     // ScrollBy( 0 ,self.VertScrollBar.Position - lpos);
     // 由于设置POSITION的时候已经使form滚动了，所以不用手动滚动
    VertScrollBar.Position : =  Lpos;
   end ;
  Handled : =  true;  // 屏蔽form里面的控件滚动事件
end ;

 

当然也可以自己截取MouseWheel消息，这样就不单单只有TScrollingWinControl类上使用滚轮事件了