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.

Kita bisa menggunakan ADO Connection untuk mengakses database Access, saya bisa menggunakan Ado Query dan Datasource di data access untuk mengolah data, berikut contoh Kode Connectionnya

Connection String untuk blank password :

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ GetCurrentDir +'mydatabase.mdb;Persist Security Info=False';

Connection Strin untuk database yang di password :

ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ GetCurrentDir +'mydatabase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=mypassword';

Set datasource ADOquery1 dengan ADOconnection1, dan set dataset Datasource1 dengan ADOquery1

ADOQuery1.ConnectionString:=ADOConnection1.ConnectionString;

With ADOQuery1 Do
Begin
  Close;
  SQL.Clear;
  SQL.Add('select * from table1');
  Open;
End;

DataSource1.DataSet := ADOQuery1;