怎么铺获TDBGrid上的鼠标滑轮事件???
解决方案 »
- 求解,自学Delphi时遇到了好多问题!
- 安装dspack的问题
- 关于占用内存的问题
- ListBox中当前项改变会激发什么事件?
- 请教一个有关录音的问题
- vb和delphi能不能合作开发软件?
- 急﹗﹗兄弟進來看一下﹐散分﹗﹗
- vc deliphi中 建立的外部txt文件,如何超过一定条目进行清空
- 请问:登陆窗体及序幕窗体执行完进入主窗体后,光标处于运行状态,不能进行下一步操作,光标带有SQL字母,如何解决?
- 阿贵也帮助过我,敬上一百,了表心意
- 我time字段里的数据都为2004-06-10 17:18:58.000 我想通过2004-06-10查询到它该怎么实现呀
- 请问有没有函式判断一个字串:'C:\TMP\TEST' 是 文件 还是 目录 呢?
procedure CMMouseWheel(var Message: TCMMouseWheel); message CM_MOUSEWHEEL;procedure TCardTempletOcx.CMMouseWheel(var Message: TCMMouseWheel);
var
pos: integer;
begin
if RateCob.Focused or CobFont.Focused then
begin
//Showmessage('');
exit;
end; if Not Tree.Focused then //如果结构树没有获得焦点
begin
if Message.WheelDelta > 0 then //如果是向上滚动
begin
pos:= bsSkinScrollBar1.Position - 20; //滚动的最小单位是5个象素
if pos < 0 then pos:= 0; //如果到达顶部
end else
begin //向下滚动
pos:= bsSkinScrollBar1.Position + 20;
if Pos > bsSkinScrollBar1.Max then //如果到达底部
Pos:= bsSkinScrollBar1.Max;
end;
bsSkinScrollBar1.Position:= pos; //设置滚动条的位置
end;
inherited; //分发给窗体上的子控件,以便其他控件可以处理滚动事件。
end;