аз пак ползвам това:
unit c_DBGridEx;
interface
uses
SysUtils, Classes, Controls, Grids, DBGrids,messages,windows,DB;
type
TDBGridEx = class(TDBGrid)
protected
procedure mw (var m:TMessage);message WM_MOUSEWHEEL;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('SDR''s', [TDBGridEx]);
end;
{ TDBGridEx }
procedure TDBGridEx.mw(var m: TMessage);
var
zDelta:Smallint;
begin
// EditorMode
// MessageBox(0,'scrol?',nil,0);
zDelta:=HIWORD(m.wParam);
if DataSource.DataSet.State in [dsEdit, dsInsert] then DataSource.DataSet.Post;
if DataSource.DataSet.State=dsBrowse then begin
if zDelta<0 then begin
if not DataSource.DataSet.Eof then DataSource.DataSet.Next;
end else begin
if not DataSource.DataSet.Bof then DataSource.DataSet.Prior;
end;
end;
end;
end.
------------------------------
I got a COMPILER, and I'm not afraid to use it!
Re: Scroll в/у DBGrid [re: VladoVasilev]
