Guten Morgen!
Ich mach das immer, in dem ich den MouseWheelHandler überschreibe:
Deklaration
procedure MouseWheelHandler(var Message : TMessage); override;
Implementation
Delphi-Quellcode:
Procedure TForm1.MouseWheelHandler(var Message : TMessage);
begin
Message.Result := -1;
if dbgrid1.focused and (DBGrid1.Datasource <> nil) then
begin
if (Message.wparam > 0)
then DBGrid1.datasource.dataset.prior
else DBGrid1.datasource.dataset.next;
end
else inherited;
end;
Aber falls du die Jedis drauf hast, kann ich dir das TJvDBGrid oder TJvDBGridEx empfehlen, bei denen ist das und auch andere, weitere Funktionen bereits eingebaut
