D�vida com barra de rolagem no DBGrid

Question

Colegas;J� procurei em tudo quanto � f�rum e n�o encontrei uma solu��o para esta d�vida.Tem como configurar a barra de rolagem do DBGrid para que ao rolar ela para baixo ou para cima, o conte�do do gr...

Franklin.farias · Answer

Barra de rolagem funciona. O que vc deve estar querendo � com o scroll do mouse, n�o �?
Acho que n�o h� como fazer isto em um TDBGrid.
Existem outros componentes que fazem isto (RxDBGrid), pode ser um solu��o.
Mas caso queria usar um TDBGrid seria necess�rio criar outro componente herdado de TDBGrid e adicionar os eventos para fazer o scroll do mouse mover os dados.

C�digo a ser adicionado:

function TMDSDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
var
  Distance: Integer;
begin
  Result := False;
  if Assigned(OnMouseWheelDown) then
    OnMouseWheelDown(Self, Shift, MousePos, Result);
  if not Result then
  begin
    if not AcquireFocus then
      Exit;
    if ssCtrl in Shift then
      Distance := VisibleRowCount - 1
    else
      Distance := 1;
    if DataLink.Active then
      Result := DataLink.DataSet.MoveBy(Distance) <> 0;
  end;
end;

function TMDSDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
var
  Distance: Integer;
begin
  Result := False;
  if Assigned(OnMouseWheelUp) then
    OnMouseWheelUp(Self, Shift, MousePos, Result);
  if not Result then
  begin
    if not AcquireFocus then
      Exit;
    if ssCtrl in Shift then
      Distance := VisibleRowCount - 1
    else
      Distance := 1;
    if DataLink.Active then
      Result := DataLink.DataSet.MoveBy(-Distance) <> 0;
  end;
end;

Vispo · Answer

[b:d8e764bf43]franklin.farias[/b:d8e764bf43], o problema do scroll do mouse eu j� resolvi.

O que eu quero fazer � o seguinte: quando eu rolar a barra clicando com o mouse e arrastando, quero que o grid acompanhe a barra. Assim como no Internet explorer, Word, etc..

F�rum D�vida com barra de rolagem no DBGrid #346897