[ _v!rus_ @ 17.02.2005. 14:50 ] @
Pozdrav svima, imam jednu molbu...

Da li bi neko bio ljubazan da mi objasni kako da implementiram handle-ovanje mousewheel-a u dbgrid-u (ili bilo cemu drugom, kad smo vec tu), po mogucnosti da ne pravim naslednika jer bi onda imao mnoooogo src-a da menjam, ali moze i to ako nema drugog nacina. Verujem da moze, sobzirom da TControl ima OnMouseWheel. Znam da moze i direktnom obradom poruke (ono, WM_nestonesto), ali ni to ne znam kako, uopste nisam u ljubavi sa porukama u windows-u...

Sta da radim, kad su sekretarice navikle da vrte tockic srednjim prstom... ;-)

Edit: Nebitno sta ce MWheel da radi, samo da kontrola odgovori na dogadjaj.
[ sasas @ 17.02.2005. 14:58 ] @
Evo jedan brzinski odgovor, valjda će ti pomoći. Ubaci na formu ApplicationEvents i kopipejstuj ovo:

Code:

procedure TMojaForma.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
   i: SmallInt;
begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_KEYDOWN;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam);
     if i > 0 then
       Msg.wParam := VK_UP
     else
       Msg.wParam := VK_DOWN;

     Handled := False;
   end;
   inherited;
end;


ss.
[ _v!rus_ @ 17.02.2005. 15:03 ] @
Cekaj, cekaj, sa'cu da probam...
Btw., uopste nisam znao da postoji appevents, to bi mi resilo mnogo problema i na drugim mestima...
[ _v!rus_ @ 17.02.2005. 15:11 ] @
Radi, hvala puno!

Jes' da mi ne treba takva obrada poruke, ali verujem da cu lako izmenti. Ipak, neat trick, ono sa simuliranjem poruke za VK_UP i VK_DOWN, izgleda da je appevents komponenta prva u lancu (posle forme na kojoj je) za dobijanje win poruka, i izgleda da je isti tip poruke za tockic i pritisnute tastere na tastaturi, cim izmenom parametara poruke dobija se druga poruka...

Tnx onceagain!
[ _v!rus_ @ 17.02.2005. 15:46 ] @
Jos jedno pitanjce,

ovo radi super, ali ima jedan problem, odgovara na svaki mwheel dogadjaj na application level-u. Pojavljuje se potencijalan problem kad se vrsi iterativna obrada recorda tabele koja je pod dbgridom (pozvano iz druge forme), a npr. sekretarica dok ceka nervozno drnda mwheel u nadi da ce to podstaknuti racunar da brze zavrsi (moja obrada MWHEEL-a ne ide preko VK_XXX, vec pristupa underlying datasetu direktno, tako da TDataset.DisableControls ne vrsi posao) . Moje pitanje je kako najjednostavnije dobiti informaciju da li je neki TForm trenutno aktivan a bez uvodjenja kontrolne boolean varijable koja ce se postavljati svaki put kada forma prozove show neke druge forme i uklanjati se otherwise. TForm.Focused ne vrsi posao.
[ sasas @ 17.02.2005. 15:52 ] @
Form.Active radi taj posao.

ss.

&you're welcome :)
[ _v!rus_ @ 17.02.2005. 16:41 ] @
Da, i ja sam isto to iskopao (kako li sam samo ovakve stvari resavao pre prijave na ES :-), samo uz malu izmenu, pa evo ako nekom zatreba...

Code:

if Msg.message = WM_MOUSEWHEEL then
begin
  if not FormMain.Active then
  begin
    Handled := False;
    Exit;
  end
  else
    if D.Qr.ControlsDisabled then
    begin
      Handled := True;  //Da ne bi ostale ne-handle-ovane poruke na cekanju
      Exit;
    end;

  if SmallInt(HiWord(Msg.wParam)) > 0 then
    D.Qr.Prior
  else
    D.Qr.Next;
  Handled := True;
end;



FormMain je forma gde je DBGrid, a D.Qr je dataset (TQuery) koji je ispod DBGrida. Mogla je i prosta provera DBGrid.HasFocus, ali ovako je zgodnije jer ako je npr. fokus na TEdit-u koji sluzi za pretragu i dalje ce raditi MWheel...