怎样让DBGrid支持鼠标滚轮 ( 积分: 50 )

X

xtqiqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #1

怎样让DBGrid支持鼠标滚轮?

 

X

xtqiqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #2

怎样让DBGrid支持鼠标滚轮?

 

Z

zhj09

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #3

到以前的资料里料搜一下吧，有不少的。
要不换一个grid也可以的，建议用grideh

 

H

hupeh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #4

你要将自已继承TDBGrid,然后在DoMouseWhellDown事件写代码

 

R

royal1442

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #5

网上有很多这方面的东西，自己去找吧（这也是一种必须要掌握的能力！）！

 

H

hupeh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #6

你先在窗体上放一个TApplicationEvents控件（Delphi自带的）,找到WmMouseWheelMessage事件。
procedure TMainForm.WmMouseWheelMessage(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;

 

L

lxw5214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #7

dbgrid1.datasource.dataset.moveby(100);//设定每页的行数
postmessage(dbgrid1.handle,wm_keydown,vk_prior,0);//上一页
postmessage(dbgrid1.handle,wm_keydown,vk_next,0);//下一页
postmessage(dbgrid1.handle,wm_keydown,vk_up,0);//上一个
postmessage(dbgrid1.handle,wm_keydown,vk_down,0);//下一个

 

L

lxw5214

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #8

看错了，这是翻页的实现方法,支持滚动的有很多其他的stringgrid控件

 

L

loskiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-24

• #9

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3273651

 

X

xtqiqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-28

• #10

谢谢各位

 

H

herryxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-30

• #11

[^][^][^][^][^][^][][][][][8D][8D]

 

C

cx0522

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-30

• #12

资料保留，受教 了