Смещение выделенной строки в DBGrid

[bilibian]

Привет.

Если проматывать список колесом, то выделение конкретной строки тоже смещается. Как сделать, чтобы выделение строки не смещалось при прокручивании списка?

[Stilet]

У грида есть событие OnMouseWheel?
Если да то попробуй вычислять разницу при прокрутке, на сколько записей ролер прокручивает, и используя метод MoveBy у Датасета, к которому грид подключен меняй текущую запись. Проблема будет только при вычислении кол-ва записей прокрутки, ну тут идей нет.

[Аватар]

Так, что ли:

type
  TDBGrid = class(DBGrids.TDBGrid)
  protected
    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
  public
    property OnMouseWheel;
  end;
  TForm1 = class(TForm)
...
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure DBGridMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ...
  DBGrid1.OnMouseWheel:=DBGridMouseWheel;
end;

procedure TForm1.DBGridMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var CountLine: Integer;
begin
  if (WheelDelta<>0) and 
     Assigned(DBGrid1.DataSource) and
     Assigned(DBGrid1.DataSource.DataSet) and
     DBGrid1.DataSource.DataSet.Active then begin
    DBGrid1.DataSource.DataSet.MoveBy(-WheelDelta div 120);
{или вместо предыдущей строки
    SystemParametersInfo(SPI_GETWHEELSCROLLLINES,0,@CountLine,0);
    DBGrid1.DataSource.DataSet.MoveBy(-Sign(WheelDelta)*CountLine);
}
    DBGrid1.Invalidate;
  end;
end;

function TDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result:=True;
end;

function TDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result:=True;
end;

Лучше все это вытащить в свой компонент наследник TCustomDBGrid

[Stilet]

Так, что ли:

Вот вот. Примерно так я и имел ввиду. Вот только формула WheelDelta div 120 может не совсем подходить. Ну это на практике лучше проверить.

[Аватар]

120 от размера шрифта зависит? Проверять лень. Лучше то, что закоментировано или -Sign(WheelDelta) для единичного смещения