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;
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;