现在手头有一个任务，需要开发多表头的编辑界面，现在的处理方法是上面是一个表头样式的控件，下面放一个DBGRID。
对于字段过多的DBGRID就要求下面DBGRID移动时上面的表头文件跟着进行相应的调整
请问如何获取DBGRID的滚动条事件？
或者有没有更好的方法？或者有没有能够自定义多表头的DBGRID?
-
等级
本版专家分：15结帖率 98.75% -
在DBGRID中好像没有定义滚动条的相关事件，应该如何获取该事件
现在手头有一个任务，需要开发多表头的编辑界面，现在的处理方法是上面是一个表头样式的控件，下面放一个DBGRID。
对于字段过多的DBGRID就要求下面DBGRID移动时上面的表头文件跟着进行相应的调整
请问如何获取DBGRID的滚动条事件？
或者有没有更好的方法？或者有没有能够自定义多表头的DBGRID?展开阅读全文
-
等级
本版专家分：160 -
implementation
{$R *.dfm}
//定义新的消息函数
type
WParameter=Word;
LParameter=LongInt;
var
OldWindowProc:Pointer;
function NewWindowProc(WindowHandle:hWnd;
TheMessage:WParameter;
ParamW:WParameter;
ParamL:LParameter):LongInt
{$IFDEF WIN32}stdcall;{$ELSE};export;{$ENDIF}
begin
//在这里处理您自己的消息
if TheMessage=WM_VSCROLL then begin
showmess('垂直滚动条正在滚动！');
end;
NewWindowProc:=CallWindowProc(OldWindowProc,
WindowHandle,
TheMessage,
ParamW,
ParamL);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//为控件指定新的窗口过程，并且记住老的窗口过程的地址
OldWindowProc:=Pointer(SetWindowLong(Dbgrid1.Handle,
GWL_WNDPROC,
LongInt(@NewWindowProc)));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
SetWindowLong(dbgrid1.Handle,
GWL_WNDPROC,
LongInt(OldWindowProc));
end;
我已经试过了，确实可行，不过麻烦点，不知道还有没有高手知道简单的用法？
-
等级
本版专家分：18716勋章
-
-
黄花
2004年5月 Delphi大版内专家分月排行榜第二
2004年4月 Delphi大版内专家分月排行榜第二
-
-
你说的功能，DBGridEh都有，用DBGridEh来代替DBGrid来实现，搜一下Ehlib控件包
-
等级
本版专家分：15
-
我重新封装了一下dbgrid添加了一个事件来处理的，通过截获wm_hScroll来处理的
to szqs你的方法什么时候试试看：）我处理的方法和你差不多
to weizi2000：
dbgrideh....没有用过，找来看看先，还有它是免费的么？没有什么使用限制么？
-
等级
本版专家分：160
-
本来我想用ApplicationEvents的onMessage事件，通过截获WM_VSCROLL来响应事件，
如if Msg.message = WM_VSCROLL then
showmessage('1');
但是没有反应，我也不知道为什么？
-
等级
本版专家分：11519
-
增加一个 TApplicationEvent组件（在Additional页）, 在它的消息 OnMessage 中添加如下的事件处理代码.
procedure Tform1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
-
等级
本版专家分：160
-
smiler007(笑一笑) ，你这个是滚动鼠标中键触发的事件，不是dbgrid右边滚动条触发的事件。
-
等级
本版专家分：18716勋章
-
-
黄花
2004年5月 Delphi大版内专家分月排行榜第二
2004年4月 Delphi大版内专家分月排行榜第二
-
-
http://www.xiya.com.cn/xiangqin/awind/codes/ehlib32.rar这里是Ehlib控件包3.2版的下载地址，看其中readme.txt中有写怎么安装，其Demos你看一下，其用法很是完全
-
等级
本版专家分：15
-
我用的方法如下似乎有些麻烦
首先定义了一个组件，增加了自己的事件onhbarclick
unit MYGrid;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,
DBGrid;
Type
TMYGrid = Class(TDBGrid)
private
FHBarClick : TNotifyEvent;
{ Private declarations }
procedure WMHScroll(var Msg: TMessage); message WM_HSCROLL;
protected
{ Protected declarations }
public
{ Public declarations }
Procedure DoList;
published
{ Published declarations }
Property OnHBarClick : TNotifyEvent read FHBarClick write FHBarClick;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TMYGrid]);
end;
procedure TMYGrid.WMHScroll(var Msg: TMessage);
begin
inherited;
DoList;
end;
Procedure TMYGrid.DoList;
Begin
If Assigned(FHBarClick) Then
FHBarClick(Self)
end;
end.
-
等级
本版专家分：15
-
to weizi2000
那个控件我看了一下，确实不错，但是被否了
主要的问题是那样做的话是死的，如果需要录入的数据发生了变化
字段改变了，程序就必须重做了，
我们现在的方法，只用修改表头，数据库结构就行了，程序上不用改动阿
-
等级
本版专家分：160
-
shepher(牧羊人) ，我的方法你试用了吗？
- DBGridEh让选择的记录不随垂直滚动条滚动而移动
使用Delphi的人都知道，Delphi中的Grid与PB或者其他的Grid有区别，就是在滚动时记录指针会跟着改变。能不能做到像PB中的DataWindow一样滚动时选定记录不改变呢？方案一、使用内存表控件，DBGRridEh里面有现成的。 ...
- 我用消息来处理 Dbgrid 鼠标中轮滚动消息的总结
用 DbGrid 来显示数据，数据很多，当我滚动鼠标中轮时，数据不是向下滚动，而是水平方向上滚动，当时感到很奇怪，这是怎么实现的呢？2。还有就是Dbgrid 不支持滚动中轮时，记录也滚动，而别人也做出这个来了，这是...
- DBGRID 拖动滚动条 和 鼠标滚轮的问题
滚动条拖动问题 默认是，拖动时，网格内数据不变，等放开鼠标后才会变。 方法 拖动时同时变，当前记录也变，不用新控件 http://wenwen.sogou.com/z/q185291591.htm 鼠标滚轮问题： 方法1：只对D7等低版本IDE...
- 086_《版主答疑-Delphi高级编程技巧》
《版主答疑-Delphi高级编程技巧》 Delphi 教程 系列书籍 (086) 《版主答疑-Delphi高级编程技巧》 网友（邦）整理 EMail: shuaihj@163.com 下载地址： Part1 Part2 Part3 Part4 作者：岳庆生 出版社：清华大学出版社...
- 086_《版主答疑-Delphi高级编程技巧》
《版主答疑-Delphi高级编程技巧》 Delphi 教程 系列书籍 (086) 《版主答疑-Delphi高级编程技巧》 网友（邦）整理 EMail: shuaihj@163.com 下载地址： Part1 Part2 Part3 Part4 作者：岳庆生 出版社：清华大学出版...
- 086_《版主答疑-Delphi高级编程技巧》
086_《版主答疑-Delphi高级编程技巧》 2010年12月18日 《版主答疑-Delphi高级编程技巧》 Delphi 教程系列书籍 (086) 《版主答疑-Delphi高级编程技巧》网友（邦）整理 EMail: shuaihj@... 下载地址： ......
- APIHOOK之外挂系列
3月30日DBGRIDEH 组件在Borland开发工具中应用全攻略 KeyLife富翁笔记 作者: archonwang标题: DBGRIDEH 组件在Borland开发工具中应用全攻略 【陈文彬】 关键字: 分类: 个人专区 密级: 公开
- 关于Delphi通用涵数
DELPHI程序注册码设计（转载） 思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则... 在DELPHI下新建一工程,放置Edit1,Edit2,Label1,Label2,Button1组件.具体代码如下: u
- delphi技巧总结收集
Delphi常用总结 (2008-03-30 23:45:17)转载标签： 杂谈分类： Delphi程序大全 1.定义leftstr,midstr时需uses strutils. 2.打开记事本需要在單元接口部分引用 SHELLAPI單元 3.获取计算机名与IP时，需定义uses...
- Delphi的笔记整理(一）
这几天清理资料，把以前学Delphi时的笔记翻出来了。大概是2005年时的吧,有些资料都没有什么价值了。以后再整理吧。 ...字段：idd、namee、age、sex、city、department、position ...1、 修改操
- FireBird编程从入门到精通
从来没有过这么一种数据库，能够像InterBase/FireBird一样富有激情。这是一种完全为程序员准备的数据库，就像瑞士军刀一样小巧、方便、实用。以往的数据库，不是太大太笨重（例如，Oracle、MS SQL、DB2），就是太...
- FireBird编程从入门到精通2
前言 从来没有过这么一种数据库，能够像InterBase/FireBird一样富有激情。这是一种完全为程序员准备的数据库，就像瑞士军刀一样小巧、方便、实用。以往的数据库，不是太大太笨重（例如，Oracle、MS SQL、DB2），...
- FireBird编程从入门到精通
从来没有过这么一种数据库，能够像InterBase/FireBird一样富有激情。这是一种完全为程序员准备的数据库，就像瑞士军刀一样小巧、方便、实用。以往的数据库，不是太大太笨重（例如，Oracle、MS SQL、DB2），就是太...
- Delphi笔记整理（二）
◇[DELPHI]字符的加密与解密 function cryptstr(const s:string; stype: dword):string; var i: integer; fkey: integer; begin result:=''; case stype of 0: setpass; begin ...
- 600个问与答
http://faq.xunweb.org/itfaq/mfcbasic/ 怎样彻底结束一个线程? (2006-06-04) v 怎么样以纯idispatch方式而不是引入类型库的方法调...
- 600个问与答
http://faq.xunweb.org/itfaq/mfcbasic/ 怎样彻底结束一个线程?(2006-06-04) v怎么样以纯idispatch方式而不是引入类型库的方法调...
- 数据结构基础系列(7)：图
数据结构课程是计算机类专业的专业基础课程，在IT人才培养中，起着重要的作用。课程按照大学计算机类专业课程大纲的要求，安排教学内容，满足需要系统学习数据结构的人。系列课程包含11个部分，本课为第7部分“图”，介绍图的相关概念图的存储结构和基本运算，深度优先和广度优先的遍历以及小生成树等其他运算。 系列课程的目标是帮助学习者系统掌握数据结构课程的相关知识，具备利用这些知识分析问题、解决问题的能力。本课是系列课程中的第7部分，具体目标包括：掌握图的相关概念；重点掌握图的邻接矩阵和邻接表各种存储结构；重点掌握图的基本运算,包括创建图、输出图、深度优先遍历、广度优先遍历算法；掌握图的其他运算，包括最小生成树、最短路径、拓扑排序等算法。能够灵活运用图解决一些综合应用问题。
- Office2016专业增强版中文免费正式版(附安装教程)64位
Microsoft office 2016专业增强版是一款由官方发布的Microsoft office办公软件，而且免费开放给所有Windows用户免费使用，其中Excel、word、PPT都非常智能化，界面最新加入暗黑主题，并且按钮的设计风格开始向Windows10靠拢。本平台提供Office 2016专业增强版，需要的朋友可下载试试！ Office 2016 专业增强版安装教程 1. 下载
- 智商IQ与情商EQ测试题与答案汇编.pptx
智商IQ与情商EQ测试题与答案汇编，内含智商和情商测试题目及答案，仅供参考
- 学生个人简介html网页
简单学生个人简介网页，适合新手学习，交作业参考。采用div+css布局。
- vs 2017最新离线安装包（全功能完整版）
vs2017最新离线安装包，将官网文件整合成4个压缩包，包含所有组件的功能，安装过程无需联网。很方便。
- 数学建模30种基本模型分析
文中把历年来的常见的数学建模比赛模型总结在一起，便于大家的学习，总共有30中模型，每一种模型都会有详细的分析，议论文的形式展现出来......
- 北大中文核心期刊汇总2020最新（更新版本）.zip
本资源为北大中文核心期刊2020年最新汇总（包括两个版本）:第一个版本为《中文核心期刊要目总览》各版核心期刊索引（1992年-2020年）,第二个版本为《北大中文核心期刊汇总2017年》,第三个版本为《北大中文核心期刊汇总2020年最新》
- c++各种小游戏（我们老师的）
这是我们老师做的，各种小游戏，我感觉还不错，所以传上来玩玩。是c++做的，有的可以用来交作业和课程设计都行的，而且对于c++游戏初学者的话很有帮助的。
- 18款表白网页源代码(表白)
18款表白网页源代码(表白),集合了经典款和合并3连款，直接可以发布到网站，来进行表白！！
- 100个精彩网页设计案例
源自国外优秀设计师的100个设计案例，打包放送
- STM32全系列 Keil MDK pack包（当前最新离线包）
STM32全系列 Keil MDK pack离线包 注：由于上传大小限制，除了F0和F1的包，其他的提供链接通过百度云下载。 包括以下包，当前最新版本（20200115） Keil.STM32F0xx_DFP.2.0.0.pack Keil.STM32F1xx_DFP.2.3.0.pack Keil.STM32F2xx_DFP.2.9.0.pack Keil.STM32F3xx_DFP.2.1.0.pack Keil.STM32F4xx_DFP.2.14.0.pack Keil.STM32F7xx_DFP.2.12.0.pack Keil.STM32H7xx_DFP.2.3.1.pack Keil.STM32G0xx_DFP.1.2.0.pack Keil.STM32G4xx_DFP.1.1.0.pack Keil.STM32L0xx_DFP.2.0.1.pack Keil.STM32L1xx_DFP.1.2.0.pack Keil.STM32L4xx_DFP.2.3.0.pack Keil.STM32L5xx_DFP.1.1.0.pack Keil.STM32MP1xx_DFP.1.1.0.pack Keil.STM32W1xx_DFP.1.0.0.pack Keil.STM32WBxx_DFP.1.0.0.pack
- 洛达1562x检测和配置软件（安卓专用）
最新的洛达芯片检测工具，1562专用，只限安卓系统 里面还支持对降噪能力和降噪模式（hyper、FF、FB）的调节
- HTML5+CSS3 精美登陆界面源码
3个很精美的登陆界面，全都是用HTML5+CSS3开发的，所以可能不适合低版本IE浏览器。大家可以下来看看，做的超级漂亮的。
- 抖音辞职信
抖音上很火的辞职信，就是点不到系列，HTML版本，即下即用