Controlando o DbGrid

Question

Como posso atrav�s das setas de navega��o pressionadas em um edit movimentar o DbGrid na dire��o em que for pressionado (p/ cima, baixo, esquerda e direita).Uso o Delphi 6....

Jecseu · Answer

Digite o seguinte c�digo:procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = vk_up then  dbgrid.datasource.dataset.prior;  if Key = vk_down then  dbgrid.datasource.dataset.next;end;Jean carlos - Delphi Certified Instructor - Carioca mas moro no Distrito federalEspero ter te ajudado...

Salupe · Answer

E no caso de se ter mais informa��es que n�o est�o aparecendo na tela, como posso fazer as colunas do Dbgrid andar para a esquerda ou direita....

Marco Salles · Answer

No Grid em [b:af8df5f3e0]Options[/b:af8df5f3e0] Cete a Propiedade[b:af8df5f3e0] DgAlwaysShow para true[/b:af8df5f3e0], isto e so para dar um efeito de [b:af8df5f3e0]azulado no campo [/b:af8df5f3e0]do registro para o usu�rio ou voce acompanhar o que esta acontecendo....Acrescentando a sugest�o do nosso amigo �jecseu� , tente o c�digo abaixo:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
   Vk_uP:
     dbgrid1.datasource.dataset.prior;
   Vk_down:
     dbgrid1.datasource.dataset.next;
   Vk_Right:
     dbgrid1.SelectedIndex:=DbGrid1.SelectedIndex+1;
   vK_lEFT:
     dbgrid1.SelectedIndex:=DbGrid1.SelectedIndex-1;
 end;
end;

O C�digo proposto deve funcionar , caso n�o , devemos nos orientar como esta cetada as propiedades Options do Seu Grid..

Salupe · Answer

Essas Dicas funcionaram, obrigado aos colegas. S� que o movimento para a esquerda e direita s� funciona se for no m�ximo selecionado para ficar azulado a coluna em que o cursor estiver no momento, mas eu trabalho com a linha inteira selecionada no azulado, tem como movimentar mesmo assim, infelizmente pelo selectindex nao funciona.

Mais uma vez obrigado.

F�rum Controlando o DbGrid #231319