父子窗体滚动条支持鼠标滚轮移动

Posted 2020-08-07 疯狂delphi

 

 

 1 //作者： 415799952   追寻
 2 //       513187410   疯狂→delphi 
 3 //       1746539685 dnyy  
 4         
 5 
 6 //1.设置哪个方向移动
 7 procedure TForm1.BitBtn2Click(Sender: TObject);
 8 begin
 9   if bitbtn2.Caption=\'纵向滚动\' then
10   begin
11     bitbtn2.Caption:=\'横向滚动\';
12     bitbtn2.Tag:=0;
13   end
14   else
15   begin
16     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 begin
25   if bitbtn2.Tag=1 then
26     postmessage(Form1.ClientHandle,WM_VSCROLL,SB_LINEDOWN,0)
27   else
28     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 begin
35   if bitbtn2.Tag=1 then
36     postmessage(Form1.ClientHandle,WM_VSCROLL,SB_LINEUP,0)
37   else
38     postmessage(Form1.ClientHandle,WM_HSCROLL,SB_LINELEFT,0);
39 end;