AfterScroll Suave con DBGrid Scroll

[Delfino]

Cuando quitar el evento y cuando volver a asignarlo?

[[AgustinOrtu]]

Con un poco de imaginacion?

Código Delphi [-]
procedure TForm1.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
  Caption := 'procesando...';
  Sleep(1000); // 1 segundo
  ShowMessage('procesado');
  Caption := 'Form1';
end;

procedure TForm1.ClientDataSet1BeforeScroll(DataSet: TDataSet);
begin
  ClientDataSet1.AfterScroll := NIL;
  Timer1.Enabled := False;
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 500; // 500 ms
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // pasaron 0,5 segundos desde el ultimo scroll, habilitar evento
  Timer1.Enabled := False;
  if not Assigned(ClientDataSet1.AfterScroll) then
  begin
    ClientDataSet1.AfterScroll := ClientDataSet1AfterScroll;
    // hay que llamar al evento
    ClientDataSet1AfterScroll(ClientDataSet1);
  end;
end;

Rustico, pero puede servir

[olbeup]

Hola Delfino,

Yo lo resuelvo con esto:

Código Delphi [-]
procedure TForm1.AfterScroll(DataSet: TDataSet);
begin
  if DataSet.ControlsDisabled then
    Exit;

  ...
  ...
  ...
end;

Un saludo.

[Delfino]

Empezado por olbeup

Hola Delfino,

Yo lo resuelvo con esto:

Código Delphi [-]procedure TForm1.AfterScroll(DataSet: TDataSet); begin if DataSet.ControlsDisabled then Exit; ... ... ... end;

Un saludo.

Excelente truco donde los haya
Gracias olbeup, me sirvio..