父子表單捲軸支援滑鼠滾輪移動

標籤：

 

 

 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; 

 

父子表單捲軸支援滑鼠滾輪移動