Stillcetek

Ada kasus nih, ternyata dbgrid yang saya buat untuk menampilkan data, scroll mouse g berfungsi, ada triknya nih sapa tau ada yang mengalami masalah yang sama

unit dataFranc;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SXSkinControl, SXSkinImage, SXSkinLibrary, SXSkinForm,
SXSkinLabel, SXSkinGroupBox, StdCtrls, Grids, DBGrids,. . . . .

typeNewControl = class(TControl);
TForm1 = class(TForm)
. . . . . .

privateprocedure
 DBGridScroll(var Message: TMessage);
{ Private declarations }
public
{ Public declarations }
end;

procedure TForm1.DBGridScroll(var Message: TMessage);
var count : short;
begin
if (Message.Msg = WM_MOUSEWHEEL) then
begin
  count:=HIWORD(Message.WParam);
  count:=count div 120;
  DBGrid1.DataSource.DataSet.MoveBy(-count)
end
else
  NewControl(DBGrid1).WndProc(Message);
end;

Procedure TForm1.FormCreate(Sender: TObject);
begin
 DBGrid1.WindowProc := DBGridScroll;
end;end.