🚀 go-pugleaf

Well, technically, it should only work if the DBGrid is selected.  All mouse
wheel events are only directed to the window with the focus.  Try the
following- open 2 browser windows that can be scrolled, mouse over the
non-focused one and scroll the mouse- nothing happens...

Mark

"Ricardo Manuel Santos Rodrigues" <ricardo.rodrigues@oesteconta.org> wrote
in message news:3e1c3595$1@newsgroups.borland.com...
> it only works if the dbgrid is selected... is there any code that work
when
> mouse pointer is on the dbgrid?
>
> --Ricardo
>
>
> "Mark Guerrieri" <mguerrieri@cmsgrp.com> escreveu na mensagem
> news:3e19b869@newsgroups.borland.com...
> > Ok, here you go... this will handle ant TDBGrids in your app and scroll
> them
> > correctly...  I am using BCB6 sp2...
> >
> > void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
> >       bool &Handled)
> > {
> >   static int deltaUp   = 0;
> >   static int deltaDown = 0;
> >
> >   if(Msg.message == WM_MOUSEWHEEL)
> >   {
> >     if(Screen->ActiveForm &&
> > dynamic_cast<TDBGrid*>(Screen->ActiveForm->ActiveControl))
> >     {
> >       short zDelta = (short) HIWORD(Msg.wParam);
> >       bool bUp = false;
> >       bool bDown = false;
> >        if(zDelta == 0)
> >         return;
> >       if(zDelta > 0)
> >       {
> >         deltaUp+= zDelta;
> >         deltaDown = 0;
> >         bUp = true;
> >       }
> >       else
> >       {
> >         deltaDown+= zDelta;
> >         deltaUp = 0;
> >         bDown = true;
> >       }
> >
> >       if(bUp && deltaUp >= WHEEL_DELTA)
> >       {
> >         deltaUp = 0;
> >         Msg.message = WM_KEYDOWN;
> >         Msg.lParam = 0;
> >         Msg.wParam = VK_UP;
> >       }
> >       else if(bDown && (deltaDown * -1) >= WHEEL_DELTA)
> >       {
> >         deltaDown = 0;
> >         Msg.message = WM_KEYDOWN;
> >         Msg.lParam = 0;
> >         Msg.wParam = VK_DOWN;
> >       }
> >     }
> >   }
> > }
> >
> >
> > Mark Guerrieri
> > mguerrieri@cmsgrp.com
> >
> >
> > "Ricardo Rodrigues" <madinfo@cadaval.net> wrote in message
> > news:3e18b751@newsgroups.borland.com...
> > > I am interested on that code too
> > > tanks
> > >
> > > --Ricardo
> > >
> > >
> > > "Mark Guerrieri" <markg11@comcast.net> wrote in message
> > > news:3e174252$1@newsgroups.borland.com...
> > > > This is a known issue with TDBGrid.  You need to add a routine to
> > globally
> > > > handle mouse wheel messages (write a TApplicationEvents->OnMessage
> event
> > > > handler), check to see if the window with input focus is a TDBGrid
and
> > if
> > > it
> > > > is, manually scroll the grid.  When I get back to the office on
> Monday,
> > > I'll
> > > > post the code I use if someone else hasn't by then.
> > > >
> > > > Mark Guerrieri
> > > > mguerrieri@cmsgrp.com
> > > >
> > > > "Alen Markov" <NOSPAM_amarkov@gmx.net> wrote in message
> > > > news:3e16d6df$1@newsgroups.borland.com...
> > > > > Just curious:
> > > > >
> > > > > Let's say you have a DGGrid with total 1000 rows.
> > > > > The DBGrid is positioned on the screen in a size
> > > > > that only the first 15rows are displayed
> > > > > (Properties - Options are all left on their defaultvalues)
> > > > >
> > > > > When you scroll down now with the mousewheel,
> > > > > it works fine until the "cursor" (the current cell is marked blue)
> > > > > reaches the row number 15... means you can only scroll
> > > > > between rows 1 and 15, but not further...
> > > > >
> > > > > Is it possible to adjust somehow the behaviour of a DBGrid
> > > > > so you can scroll through all rows with the mousewheel?
> > > > >
> > > > > Alen
> > > > >
> > > > >
> > > > > --
> > > > > WEB: http://www.come.to/nostromo
> > > > >
> > > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>