[delphi-explorer]

Подскажите как задействовать прокрутку мышью в DBСtrlGrid. Нужно чтобы один шаг ровнялся прокрутке на одну запись. Поискал по всему интернету но готового решения не нашел. Часто упоминается про OnMouseWheel но у этого компонента нет своего такого события. Может кто то уже успешно занимался этим вопросом?

[NumLock]

Нужно переопределить DoMouseWheel(). Либо в наследнике, либо через хак.

[delphi-explorer]

Сообщение от NumLock

Нужно переопределить DoMouseWheel(). Либо в наследнике, либо через хак.

А примера нет случайно? Я мышей не ловил раньше при помощи delphi)). Буду благодарен если научите

[NumLock]

Сообщение от delphi-explorer

А примера нет случайно? Я мышей не ловил раньше при помощи delphi)). Буду благодарен если научите

Я с телефона в интернете, поэтому сейчас никак, вечером если только.

[delphi-explorer]

Сообщение от NumLock

Я с телефона в интернете, поэтому сейчас никак, вечером если только.

Я покопаюсь еще в дебрях форума. Если не затруднит, напишите при возможности пример.

[Alegun]

Не совсем то, что требуется, переход не точно по записям, но вот пример прокрутки с подкладкой глобальной процедуры колёсика

Код:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WindowFromPoint(MousePos) = DBCtrlGrid1.Handle then
  if WheelDelta > 0 then
   DBCtrlGrid1.Perform(WM_VScroll, SB_LINEUP, 0)
    else
     DBCtrlGrid1.Perform(WM_VScroll, SB_LINEDOWN, 0);
end;

[NumLock]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, dbcgrids, DB, DBTables;

type
  TDBCtrlGrid = class(DBCGrids.TDBCtrlGrid)
  protected
    function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
  end;

  TForm1 = class(TForm)
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TDBCtrlGrid }

function TDBCtrlGrid.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
  MousePos: TPoint): Boolean;
begin
  if WheelDelta>0 then DataSource.DataSet.Prior else DataSource.DataSet.Next;
  Result:=True;
end;

end.

[delphi-explorer]

Спасибо!! Я понял как это должно работать. Только почему то выдается ошибка: [DCC Error] Form1.pas(157): E2065 Unsatisfied forward or external declaration: 'TForm1.DoMouseWheel' на строке:

Код:

function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;

В виду своей неопытности в объявлении классов не могу разобраться что лишнее убрать из деклараций в форме.

[Alegun]

Да нет, пример NumLock`а работает без ошибок, вот проверка под ADO

[delphi-explorer]

Сообщение от Alegun

Да нет, пример NumLock`а работает без ошибок, вот проверка под ADO

Да, он работает. Я тоже его запускал на новом проекте. Это у меня что то с текущим проектом. Сейчас найду что лишнее и тоже заработает.

[NumLock]

Сообщение от delphi-explorer

'TForm1.DoMouseWheel'.

Вот тут внимательней.

[delphi-explorer]

Сообщение от NumLock

Вот тут внимательней.

Да).Form1 туда случайно попало. Там
E2065 Unsatisfied forward or external declaration: 'TDBCtrlGrid.DoMouseWheel'

[delphi-explorer]

Все, разобрался! Объявил функцию в классе как в примере NumLock, а реализацию не добавил и пытался компилировать. Большое спасибо NumLock и Alegun за помощь!
Вот думаю почему сразу разработчик не добавил DbCtrlGrid такую полезную возможность как скрол?

[M.A.D.M.A.N.]

Если есть желание, можешь глянуть в сторону EhLib.

[NumLock]

Сейчас на работе с EhGrid на cxGrid проекты переписываем, чтобы забыть EhLib как страшный сон