DBGRID

← →
kurilka (2004-09-16 13:40) [0]

Доброе время суток, мастаки. Кто-нить может подсказать, как в DBGRID`е сделать прокрутку всей таблицы с помощью мыши а не только видимой части?

← →
sniknik © (2004-09-16 13:54) [1]

конечно, ктонибудь может.

← →
kurilka (2004-09-16 13:58) [2]

Эээ... а можно поконкретней, чем просто _конечно_?

← →
sniknik © (2004-09-16 14:01) [3]

конкретней не бывает.
вопрос
> Кто-нить может подсказать, как ...
ответ
> конечно, ктонибудь может.

чего еще?

← →
sniknik © (2004-09-16 14:08) [4]

аааа...! до меня дошло, тебе нужно именно сделать а не узнать может ли кто подсказать...

переопределяеш класс TDBGrid, в нем собития MouseWheel или MouseWheelDown/Up в них обработку связанного с гридом рекордсета, добавляещ 2 операции Next/Pred. в общем то и все. да пользоваться нужно уже переопределенным гридом.

или можно эти события описать в другом месте и переприсвоить их нужному гриду.

← →
kurilka (2004-09-16 14:21) [5]

угу.. понял.. ща будем траить.. пасибки

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_MOUSEWHEEL then begin
//Form2
if (assigned(Form2)) then begin
if Form2.DBGrid1.Focused then
if Form2.DBGrid1.DataSource.DataSet.Active then begin
IF(( msg.wParam <=32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form2.DBGrid1.DataSource.DataSet.Next;
IF(( msg.wParam > 32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form2.DBGrid1.DataSource.DataSet.Prior;
Handled:=true; end;
end;
//Form4

if (assigned(Form4)) then begin
if Form4.DBGrid1.Focused then
if Form4.DBGrid1.DataSource.DataSet.Active then begin
IF(( msg.wParam <=32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form4.DBGrid1.DataSource.DataSet.Next;
IF(( msg.wParam > 32512) and
( Msg.message = WM_MOUSEWHEEL)) then
Form4.DBGrid1.DataSource.DataSet.Prior;
Handled:=true; end;
end;
...

← →
Ильш (2004-09-17 06:33) [7]

что курим, kurilka? :))))

← →
ceval (2004-09-20 20:35) [8]

Можешь воспользываться DBGridEh очень удобно

DBGRID Найти похожие ветки