Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   error raro en dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=46411)

nikotina 31-07-2007 12:25:09

error raro en dbgrid
 
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 31-07-2007 13:07:45

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] 31-07-2007 13:21:18

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 31-07-2007 16:48:29

Cita:

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.


La franja horaria es GMT +2. Ahora son las 15:09:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi