如何截获DBGRID的滚动条的点击、移动事件

[shepher]

在DBGRID中好像没有定义滚动条的相关事件，应该如何获取该事件

现在手头有一个任务，需要开发多表头的编辑界面，现在的处理方法是上面是一个表头样式的控件，下面放一个DBGRID。
对于字段过多的DBGRID就要求下面DBGRID移动时上面的表头文件跟着进行相应的调整

请问如何获取DBGRID的滚动条事件？
或者有没有更好的方法？或者有没有能够自定义多表头的DBGRID?

[楚人无衣]

你说的功能，DBGridEh都有，用DBGridEh来代替DBGrid来实现，搜一下Ehlib控件包

[shepher]

我重新封装了一下dbgrid添加了一个事件来处理的，通过截获wm_hScroll来处理的

to szqs你的方法什么时候试试看：）我处理的方法和你差不多

to weizi2000：
dbgrideh....没有用过，找来看看先，还有它是免费的么？没有什么使用限制么？

[szqs]

本来我想用ApplicationEvents的onMessage事件，通过截获WM_VSCROLL来响应事件，
如if Msg.message = WM_VSCROLL then
showmessage('1');

但是没有反应，我也不知道为什么？

[smiler007]

增加一个 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;

[szqs]

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;

我已经试过了，确实可行，不过麻烦点，不知道还有没有高手知道简单的用法？

[szqs]

shepher(牧羊人) ，我的方法你试用了吗？

[楚人无衣]

http://www.xiya.com.cn/xiangqin/awind/codes/ehlib32.rar这里是Ehlib控件包3.2版的下载地址，看其中readme.txt中有写怎么安装，其Demos你看一下，其用法很是完全

[shepher]

我用的方法如下似乎有些麻烦
首先定义了一个组件，增加了自己的事件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.

[shepher]

to weizi2000
那个控件我看了一下，确实不错，但是被否了
主要的问题是那样做的话是死的，如果需要录入的数据发生了变化
字段改变了，程序就必须重做了，
我们现在的方法，只用修改表头，数据库结构就行了，程序上不用改动阿

[szqs]

smiler007(笑一笑) ，你这个是滚动鼠标中键触发的事件，不是dbgrid右边滚动条触发的事件。

[shepher]

szqs 你的方法用过了
谢谢了
现在找到了更好的方法
这几天好忙啊，问题多多多，不停的测试啊，找资料啊什么的
痛苦啊