🚀 go-pugleaf

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
> > >
> > >
> >
> >
>
>