ActiveDelphi

[nildglan]

pessoal ja dei uma procura mais não encontrei
estou no delphi xe2
tenho um grid com varios registros e varias colunas, na primeira coluna preciso do foco ai na segundo coluna o foco não pode passar por ela ai vem a terceira coluna precisa do foco ai tenho que pular para a segundo registro e fazer o mesmo processo como fazer essa interação de foco

[Batera]

Boa noite, nildglan.
Basta definir a coluna do DBGrid como ReadOnly = True. Assim o foco não entrará nela.

[nildglan]

batera o problema é q o foco ta saindo do dbgrid exemplo o foco esta na primeira coluna e quando pressiono enter o foco sai dbgrid e vai pra outro controle em vez de ir para outra coluna

[Batera]

Experimente alterar a propriedade dgTabs da DBGrid para True, e dgRowSelect para False. Essas duas propriedades estão dentro da propriedade Options.

[nildglan]

dgTabs = true e dgRowSelect = false e mesmo assim o foco sai

[imex]

Boa tarde,

O problema ocorre apenas com a tecla Enter?
Com o Tab funciona corretamente?
Então acho melhor você postar o código utilizado para fazer com que o foco seja alterado quando o Enter é pressionado.

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imobiliarias-em-suzano

[nildglan]

imex com a tecla tab funciona perfeiro com enter é que não da certo

[imex]

Acredito que você utiliza código para alterar o foco para outro componente quando a tecla Enter é pressionada.
Se é esse o caso, acho que você vai ter que alterar esse código para verificar se o controle ativo é um DBGrid (ActiveControl is TDBGrid), e caso seja, simultar o pressionamento da tecla Tab.

[nildglan]

eu uso o codigo no keypress do form , como então eu simulo a tecla tab?

[imex]

Experimente fazer um teste com esse código:

[nildglan]

mais eu coloco em qual evento?

[imex]

No meio do seu código para a tecla Enter, mais ou menos assim:

[nildglan]

imex

até que dessa forma deu certo

if Key = #13 then
if ActiveControl is TDBGrid then
begin
keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0)
end
else
begin
Key:= #0;
Perform(Wm_NextDlgCtl,0,0);
end;


o problema é que realmente agora esse só sai se vc for com mouse,
tenho em algums programas que ja vir usando dbgrid que quando ele sai do primeiro registro ele pula para o segundo se não for inseriodo registro ele sai e vai para o outro controle, vc sabe desse código?

[imex]

Quando deveria ir para o outro controle? Após pressionar Enter ou Tab quando o foco está na última coluna da direita?

[nildglan]

imex, é assim quando eu entro no grid ele gerar um numero certo? ai eu navego com a tecla enter até a útima coluna ai pressiono enter ele vai pra o segundo registro, no sistema que vir quando ele entra no segundo registro se eu não inserir registro ele sai o foco