Fórum Eventos de DBGrid #377211
08/05/2010
0
Na 1ª tenho o cabeçalho da NF, ou seja, nº da NF, nome do comprador, data, etc...
Na 2ª tenho a descriminação dos produtos.
Com o evento OnCellClick ativado na 1ª DBGrid, clico numa célula e a 2ª me mostra essa descriminação, após passar por um filtro que é o campo "NumNF".
Até aí tudo bem, só que estou tentando, ao invés de clicar, navegar com as teclas de Seta para Cima e Seta para Baixo, só que dessa forma o ponteiro não aponta para o "NumNF" da 2ª DBGrid, ou seja, ela permanece inalterada mostrando os dados do último Click.
Testei todos os eventos da 1ª DBGrid mas não consegui resolver.
Existe alguma forma para isso?
Agradeço qualquer ajuda.
Clovis Perazza
Curtir tópico
+ 0Posts
08/05/2010
Paulo Ricardo
if DataSource.DataSet.State in [dsBowser] then // se o dataset estiver no modo de navegação então...
aplique esses comandos...
espero ter ajudado ;)
Gostei + 0
09/05/2010
Clovis Perazza
Obrigado.
Gostei + 0
09/05/2010
Carlos Mazzi
gridConsulta.SetFocus; ou if key = vk_up then //seta pra cima
gridConsulta.SetFocus;
Gostei + 0
09/05/2010
Carlos Mazzi
Gostei + 0
09/05/2010
Clovis Perazza
Obrigado.
Gostei + 0
09/05/2010
Clovis Perazza
Talvez eu esteja fazendo algo errado, mas na procedure abaixo, as teclas Seta para Cima e Seta para Baixo, não são "sentidas".
Outras teclas como letras, números e Enter são reconhecidas, mas as PageUp, PageDown e Setas, não são.
Veja como usei:
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #38) or (Key = #40) then <-
// if (key = chr(vk_down)) or (key = chr(vk_up)) then <- utilizei essas 2 comparações
DBGrid1.SetFocus;
end;
Abraços.
Gostei + 0
10/05/2010
Robson Catunda
Gostei + 0
10/05/2010
Wilson Junior
Espero ter colaborado.
Gostei + 0
10/05/2010
Clovis Perazza
Abraços.
Gostei + 0
12/05/2010
Carlos Mazzi
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)