Controlando o DbGrid

Delphi

11/05/2004

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.


Salupe

Salupe

Curtidas 0

Respostas

Jecseu

Jecseu

11/05/2004

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 federal

Espero ter te ajudado


GOSTEI 0
Salupe

Salupe

11/05/2004

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.


GOSTEI 0
Marco Salles

Marco Salles

11/05/2004

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


GOSTEI 0
Salupe

Salupe

11/05/2004

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.


GOSTEI 0
POSTAR