DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动
2014-04-27 00:00
796 查看
摘要: DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动
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
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
相关文章推荐
- ScrollBox 响应鼠标滚轮和ComboBox禁止滚动
- 让TscrollBox响应鼠标滚轮的滚动事件
- jquery 响应不同浏览器 鼠标滚轮上下滚动事件 相对的操作
- DataWindow如何彻底禁止鼠标滚轮滚动到下一条或上一条记录
- zedgraph中禁用鼠标滚轮变焦(禁止画图区域随鼠标滚动改变XY轴,定位)
- Combobox中禁止鼠标中键滚动list列表
- zedgraph中禁用鼠标滚轮变焦(禁止画图区域随鼠标滚动改变XY轴,定位)(转)
- Combobox中禁止鼠标中键滚动list列表
- 按住Ctrl滚动鼠标滚轮,spread放大禁止
- tkinter绑定鼠标滚轮滚动事件
- C# panel控件实现鼠标滚轮滚动拖动滚动条
- silverlight给ScrollViewer滚动条添加响应鼠标滚轮
- 如何让DbGrid支持鼠标滚轮滚动
- 滚动条响应鼠标滑轮事件实现上下滚动的js代码
- C#鼠标滚轮处理滚动条滚动
- vue input["number"],禁止显示上下箭头,禁止鼠标滚轮事件
- 如何在.Net下控件不响应鼠标滚轮动作
- mfc中鼠标滚轮上下滚动计数问题(OnMouseWheel)
- JS判断鼠标滚轮停止滚动
- 滚动条响应鼠标滑轮事件实现上下滚动的js代码