Foros Club Delphi - Ver Mensaje Individual

*Caro* · #2 16-09-2008

Hola Parche, si quieres que funcionen las teclas de arriba y abajo tendras que utilizar el evento OnKeyUp del DbGrid, tendría que ser algo así.

Código Delphi [-]procedure TForm1.DBGridKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (key=vk_down) or (key=vk_up) then
  Label1.Caption := IntToStr(ADOQuery.RecNo)+' de: '+IntToStr(ADOQuery.RecordCount);

Saluditos