1 //作者： 415799952   追寻 2 //       513187410   疯狂→delphi  3 //       1746539685 dnyy   4          5  6 //1.设置哪个方向移动 7 procedure TForm1.BitBtn2Click(Sender: TObject); 8 begin 9   if bitbtn2.Caption=‘纵向滚动‘ then10   begin11     bitbtn2.Caption:=‘横向滚动‘;12     bitbtn2.Tag:=0;13   end14   else15   begin16     bitbtn2.Caption:=‘纵向滚动‘;17     bitbtn2.Tag:=1;18   end;19 end; 20 21 //2.移动一22 procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;23   MousePos: TPoint; var Handled: Boolean);24 begin25   if bitbtn2.Tag=1 then26     postmessage(Form1.ClientHandle,WM_VSCROLL,SB_LINEDOWN,0)27   else28     postmessage(Form1.ClientHandle,WM_HSCROLL,SB_LINERIGHT,0);29 end;30 31 //3.移动二32 procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;33   MousePos: TPoint; var Handled: Boolean);34 begin35   if bitbtn2.Tag=1 then36     postmessage(Form1.ClientHandle,WM_VSCROLL,SB_LINEUP,0)37   else38     postmessage(Form1.ClientHandle,WM_HSCROLL,SB_LINELEFT,0);39 end;