error raro en dbgrid

[nikotina]

Hola a todos. Tengo un DbGrid y a su lado un StringGrid con la misma cantidad de filas, y lo que quiero lograr es que cuando desciendo con el cursor hacia abajo fila por fila en el DbGrid, tambien descienda el StringGrid como si fuera todo una misma tabla.

en el evento OnKeyDown del dbgrid tengo el siguiente codigo:

if key = vk_down then
stringgrid1.row := query3.recno;

El problema es que cuando ejecuto el programa y en el dbgrid desciendo con el cursor, dicho DbGrid se saltea un fila cada vez que presiono la tecla down. No desciende fila a fila como debe ser.-


Espero haberme hecho entender bien, y muchas gracias a todos.

[[gluglu]]

Código Delphi [-]
procedure TForm.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_down then begin
    StringGrid1.row := Query3.Recno; 
    Key := 0;
  end;
end;

[Neftali [Germán.Estévez]]

Creo que más fácil que controlar teclas (ya que hay más involucradas como el PAGE DOWN, PAGE UP,...) es mejor que captures los eventos del DataSet e intentes localizar en el StringGrid el registro relacionado con el DGBrid (que supongo que lo habrá).

[[Chris]]

Empezado por Neftali

Creo que más fácil que controlar teclas (ya que hay más involucradas como el PAGE DOWN, PAGE UP,...) es mejor que captures los eventos del DataSet e intentes localizar en el StringGrid el registro relacionado con el DGBrid (que supongo que lo habrá).

Es la solución más inteligente. Para este propósito puedes utilizar el evento OnDataChange del TDataSource o el evento AfterScroll de TDataSet.