TScrollBox响应鼠标滚动事件

最新推荐文章于 2024-11-19 23:19:47 发布

hncsl

最新推荐文章于 2024-11-19 23:19:47 发布

阅读量914

点赞数

分类专栏： VCL控件文章标签： DelphiTScrollBox Mou

VCL控件专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个Delphi程序中处理鼠标滚轮事件的方法，通过检测滚轮方向来控制ScrollBox的滚动，并且在组合框未下拉时拦截滚轮事件。此技术适用于Delphi应用程序的用户界面优化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

转自：http://www.th7.cn/Program/delphi/201406/216166.shtml