Transformar enter em tab dbgrid lazarus

[Darlan Souza]

Boa tarde.

No dbgrid do lazarus ao teclar enter o cursor fica dentro da coluna selecionada e só passa para a próxima coluna quando teclo enter novamente.

Existe alguma configuração que ao teclar enter no grid o foco vá direto para a próxima coluna sem entrar dentro da coluna ?

[Juliomar Marchetti]

Boa noite

chegou a tentar:

Mude a propriedade "KeyPreview" do Form para true

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    DBGrid1.Perform(WM_KEYDOWN, VK_TAB, 0);

[Darlan Souza]

Citar

chegou a tentar:

Mude a propriedade "KeyPreview" do Form para true

Sim, "KeyPreview" do Form = true.

 

Percebi debugando que ao teclar enter no grid o evento "KeyPress" não é acionado.

Não aciona o evento do grid e nem o evento "KeyPress" do Form.

[Juliomar Marchetti]

Troca pelo KeyDown

[Darlan Souza]

Obrigado pela ajuda Juliomar.

No KeyDown ele passa, porém infelizmente o efeito não mudou nada. Continuo tendo que teclar enter duas vezes para passar para a próxima coluna.

Será a versão do lazarus? Estou usando a 2.0.8

Qual versão vc usa ?

[datilas]

9 horas atrás, Darlan Souza disse:

Obrigado pela ajuda Juliomar.

No KeyDown ele passa, porém infelizmente o efeito não mudou nada. Continuo tendo que teclar enter duas vezes para passar para a próxima coluna.

Será a versão do lazarus? Estou usando a 2.0.8

Qual versão vc usa ?

tenta no onkeypress do dbgrid

If Key = #13 Then

Begin

if dbgrid.SelectedIndex = 10 Then // ou dbgrid.SelectedIndex = dbgrid.Columns.Count

dbgrid.SelectedIndex := 1

Else

dbgrid.SelectedIndex := dbgrid.SelectedIndex  + 1;

End;

é só adaptar  a sua necessidade.

Editado 4 Junho, 2020 por datilas

[Darlan Souza]

Consegui com esse código 

  if (key=VK_RETURN) then
  begin
    Keybd_event(VK_TAB,0,0,0);
    key:=0;
  end;

Embora não tenha funcionado com o RxDBGrid, mas funcionou com o DBGrid. Já tá bom demais. 

Obrigado pessoal.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.