Desplazamiento vertical en DBGrid

[ecfisa]

Hola saldanaluis.

Yo también tengo un requerimiento parecido. Mi DBGrid está ligado a una tabla en el Data-Module. Yo cambio de registro en el DBGrid hacia arriba o hacia abajo con las flechas del teclado, y cada vez que me cambio a otro registro, quiero verificar el valor de uno de los campos del registro para saber si habilito o deshabilito un botón.

En realidad no pareciera ser similar a el caso que plantea dvd2000 más arriba:

yo lo unico que pretendo es detectar que se ha pinchado en el deslizamiento vertical, para luego proceder a ejecutar un procedimiento.

Creo que en tu caso basta con verificar la condición en el evento AfterScroll de tu TDataSet.

Código Delphi [-]
...
implementation

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
   Button1.Enabled:= TuDataSet.FieldByName('Campo_A_Verificar').AsString = 'Dato_A_Evaluar';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  TuDataSet.AfterScroll:= DataSetAfterScroll;
end;

Un saludo.

[saldanaluis]

Muchas Gracias. Me funcionó perfectamente.
Ahora, solo para terminar de entender lo que me diste a conocer aqui.
En los estatutos del FormShow que me mencionas, lo que se está haciendo es el hacer que el evento AfterScroll del dataset que tengo en el DataModule, apunte al procedure que definí en mi forma donde tengo el botón. Por lo que cuando sucede un evento de scroll en el dataset, en lugar de ejecutar, en el caso que lo hubiera, el procedimiento de AfterScroll que estuviese definido en el DataModule, se va a ejecutar el procedure que definí en la forma donde tengo el botón.

Al menos esto es lo que estoy entendiendo, ya que nunca he hecho algo así. Si no estoy en lo correcto, te agradecería me expliques que es lo que se hace con el código que me diste a conocer.

Como verás, soy un programador muy 'light' del delphi 7, y no se muchos de los trucos y por lo tanto el potencial que tiene el delphi para hacer aplicaciones.

Muchas gracias nuevamente.

[ecfisa]

Hola saldanaluis.

Si el DataSet permanecerá abierto, es totalmente correcta tu apreciación.

En ese caso, la forma de guardar/restaurar el método asociado al evento sería:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    FDataSetNotifyEvent: TDataSetNotifyEvent; // para guardar puntero al método
    procedure DataSetAfterScroll(DataSet: TDataSet);
  public
  end;
...
implementation

procedure TForm1.DataSetAfterScroll(DataSet: TDataSet);
begin
   Button1.Enabled:= DataModule.TuDataSet.FieldByName('Campo_A_Verificar').AsString = 'Dato_A_Evaluar';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  FDataSetNotifyEvent:= DataModule.DataSet.AfterScroll;  // FDataSetNotifyEvent apunta al último método definido
  DataModule.DataSet.AfterScroll:= DataSetAfterScroll;   // Asignamos nuevo método
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DataModule.DataSet.AfterScroll:= FDataSetNotifyEvent;  // restauramos el método anterior
end;
...

Un saludo.