Combobox中禁止鼠标中键滚动list列表
2013-10-09 11:54
141 查看
//第1种方法 procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if ActiveControl = ComboBox1 then Handled := True; end; //第2种方法(了解该方法后,以后会有助于我们处理更复杂的问题) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) cbb1: TComboBox; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } FOldWndProc: TWndMethod; public { Public declarations } procedure NewWndProc(var Message: TMessage); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.NewWndProc(var Message: TMessage); begin if ((Message.Msg <> WM_MOUSEWHEEL) ) then FOldWndProc(Message); end; procedure TForm1.FormCreate(Sender: TObject); begin FOldWndProc := cbb1.WindowProc; cbb1.WindowProc := NewWndProc; end; procedure TForm1.FormDestroy(Sender: TObject); begin cbb1.WindowProc := FOldWndProc; end;
View Code
相关文章推荐
- Combobox中禁止鼠标中键滚动list列表
- ScrollBox 响应鼠标滚轮和ComboBox禁止滚动
- DELPHI ScrollBox1响应鼠标滚轮和ComboBox禁止滚动
- 鼠标上下滚动支持combobox选中
- 禁止浏览器ctrl+鼠标滚动
- 列表的鼠标按下滚动抬起停止效果
- DataWindow如何彻底禁止鼠标滚轮滚动到下一条或上一条记录
- 文字滚动应用,禁止鼠标控制暂停或滚动
- 移动端页面禁止鼠标滑轮滚动的方法
- 按住Ctrl滚动鼠标滚轮,spread放大禁止
- zedgraph中禁用鼠标滚轮变焦(禁止画图区域随鼠标滚动改变XY轴,定位)(转)
- 关于自定义鼠标样式和ComboBox弹出list之间层级错位的解决方法
- duilib combo控件,当鼠标滚动时下拉列表自动关闭的bug的修复
- jQuery实现列表自动循环滚动鼠标悬停时停止滚动
- duilib combo控件,当鼠标滚动时下拉列表自动关闭的bug的修复
- 鼠标点击交换两个list的列表项
- duilib List控件,横向滚动时列表项不移动或者显示错位的bug的修复
- js 禁止鼠标滚动
- zedgraph中禁用鼠标滚轮变焦(禁止画图区域随鼠标滚动改变XY轴,定位)