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

shepher 2005-01-30 08:03:36
在DBGRID中好像没有定义滚动条的相关事件,应该如何获取该事件

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

请问如何获取DBGRID的滚动条事件?
或者有没有更好的方法?或者有没有能够自定义多表头的DBGRID?
...全文
420 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
shepher 2005-02-02
  • 打赏
  • 举报
回复
szqs 你的方法用过了
谢谢了
现在找到了更好的方法
这几天好忙啊,问题多多多,不停的测试啊,找资料啊什么的
痛苦啊
szqs 2005-01-31
  • 打赏
  • 举报
回复
smiler007(笑一笑) ,你这个是滚动鼠标中键触发的事件,不是dbgrid右边滚动条触发的事件。
shepher 2005-01-31
  • 打赏
  • 举报
回复
to weizi2000
那个控件我看了一下,确实不错,但是被否了
主要的问题是那样做的话是死的,如果需要录入的数据发生了变化
字段改变了,程序就必须重做了,
我们现在的方法,只用修改表头,数据库结构就行了,程序上不用改动阿
shepher 2005-01-31
  • 打赏
  • 举报
回复
我用的方法如下似乎有些麻烦
首先定义了一个组件,增加了自己的事件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.
楚人无衣 2005-01-31
  • 打赏
  • 举报
回复
http://www.xiya.com.cn/xiangqin/awind/codes/ehlib32.rar这里是Ehlib控件包3.2版的下载地址,看其中readme.txt中有写怎么安装,其Demos你看一下,其用法很是完全
szqs 2005-01-31
  • 打赏
  • 举报
回复
shepher(牧羊人) ,我的方法你试用了吗?
szqs 2005-01-30
  • 打赏
  • 举报
回复
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;

我已经试过了,确实可行,不过麻烦点,不知道还有没有高手知道简单的用法?
smiler007 2005-01-30
  • 打赏
  • 举报
回复
增加一个 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 2005-01-30
  • 打赏
  • 举报
回复
本来我想用ApplicationEvents的onMessage事件,通过截获WM_VSCROLL来响应事件,
如if Msg.message = WM_VSCROLL then
showmessage('1');

但是没有反应,我也不知道为什么?
shepher 2005-01-30
  • 打赏
  • 举报
回复
我重新封装了一下dbgrid添加了一个事件来处理的,通过截获wm_hScroll来处理的

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

to weizi2000:
dbgrideh....没有用过,找来看看先,还有它是免费的么?没有什么使用限制么?
楚人无衣 2005-01-30
  • 打赏
  • 举报
回复
你说的功能,DBGridEh都有,用DBGridEh来代替DBGrid来实现,搜一下Ehlib控件包

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧