DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动

2019独角兽企业重金招聘Python工程师标准>>>

DELPHI  ScrollBox1响应鼠标滚轮和ComboBox禁止滚动

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WheelDelta < 0 then
   ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0)
 else
   ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0);
 if ActiveControl is TComboBox then
   if not TComboBox(ActiveControl).DroppedDown Then
     Handled:=True;
end;

#Delphi

转载于:https://my.oschina.net/u/582827/blog/227183