Mausrad funktionert nicht sauber in DBGrid

[day]

Hallo

Ich habe ein DBGrid in dem ich daten aus einer MemoryTable darstelle. Jetzt möchte ich, dass ich mit dem Mausrad die einzelnen records durchgehen kann. Allerdings funktioniert das nur bedingt. Ich kann zwar record für record auf dem DBGrid durch gehen mit dem Mausrad allerdings bleibt der cursor auf der MemoryTable immer auf dem selben record stehen. Erst wenn ich einen Record selektiere wird er auch intern verschoben. (Ein Problem habe ich vorallem dann, wenn ich eine Scrollbar habe. Dann kann ich nur innerhalb der sichtbaren Records mit dem Mausrad navigieren).

Hat einer eine Idee wie ich mit dem Mausrad auch die records in der MemoryTable beeinflussen kann?

[shmia]

Die Messages vom Mausrad müssen wohl einer Spezialbehandlung unterzogen werden.

Delphi-Quellcode:

procedure THauptForm.HandleOnMessage(var Msg: TMsg; var Handled: Boolean);
var
   phnd : HWND;
begin
   {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}

   case Msg.message of

      WM_MOUSEWHEEL:
      begin
         if (Screen.ActiveForm.ActiveControl <> nil) and
            (Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid') then
         begin
            Msg.message := WM_KEYDOWN;
            Msg.lParam := 0;
            if Msg.wParam > 0 then
               Msg.wParam := VK_UP
            else
               Msg.wParam := VK_DOWN;

            Handled := False;
         end;
      end;
   end;
end;

Im OnCreate Event muss dieser Message-Handler dann noch "eingeklinkt" werden:

Delphi-Quellcode:

   Application.OnMessage := self.HandleOnMessage

[day]

danke funktioniert wunderbar