ehlib自带例子DEMO1中是如果实现鼠标滑轮翻页的?

Question

看它的代码很久了，始终没弄清，很着急

Answer 1

在 DBGridEh.pas单元中,TCustomDBGridEh类处理了WM_VSCROLLinterface..
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
...
implementation...
procedure TCustomDBGridEh.WMVScroll(var Message: TWMVScroll);
begin
 ....//就在这个消息处理函数中,实现的

Answer 2

如果你想要让delphi的TDBGrid也支持鼠标滑轮翻页可以看一下,这个demo:http://www.delphibox.com/article.asp?articleid=1605

Answer 3

问题是DEMO1在滑轮滚动时，当前选定的记录是不变的。而直接使用dbgrideh，它在滚动滑轮时，当前选定的记录是在变的。DEMO1的源程序中没有用到WM_MOUSEWHEEL

Answer 4

使用DBGridEh时，设置属性dgMutiSelect 为True，即可达到你要的效果，按Shift或Ctrl键进行多选