Fórum Enter #345941
13/09/2007
0
Sei que esse tema deve ser um dos mais discutidos aqui no forum, mas me desculpem, nao consigo encontrar uma maneira que funcione 100¬, ja testei alguns componentes, alguns desses nao instalam, outros instalam e dao um monte de erros, outras formas funcionam com alguns componentes e em outros nao, e estou realmente precisando muito resolver isso, por isso peço novamente desculpas, mas alguem poderia me auxiliar para resolver de uma vez por todas a troca do TAB por ENTER, pode ser com componente ou via programacao.
Muito Obrigado
Muito Obrigado
Felipeiw
Curtir tópico
+ 0
Responder
Posts
13/09/2007
Raserafim
eu faço da seguinte forma:
no form defina a propriedade KeyPreview como True.
no evento OnKeyPress coloque o seguinte código:
e na declaração Uses da Interface acrescente a unit DBGrids
faça isso para cada form.
no form defina a propriedade KeyPreview como True.
no evento OnKeyPress coloque o seguinte código:
if (Key = #13) and not (Screen.ActiveControl is TMemo) and not (Screen.ActiveControl is TDBGrid) then
begin
Key := 0;
TForm(Sender).Perform(WM_NEXTDLGCTL, 0, 0);
end;e na declaração Uses da Interface acrescente a unit DBGrids
faça isso para cada form.
Responder
Gostei + 0
13/09/2007
Gandalf.nho
Eu uso o DosMove.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)