051 - Substituindo TAB pelo ENTER
procedure TF_Padrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if not (ActiveControl is TDBGrid) then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
end
else if (ActiveControl is TDBGrid) then
with TDBGrid(ActiveControl) do
if selectedindex (fieldcount -1) then
selectedindex := selectedindex +1
else
selectedindex := 0;
end;
Ou então, pode-se tentar o seguinte método:
Utilize o evento onkeydown do componente e insira o seguinte comando:
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
este comando testa a tecla pressionada, se ela for um enter, manda o foco
para o componente posterior.
Vê se funciona!!! Não testei, tirei de um arquivo de dicas...
- Original Message -
From: Florentino - Agrosoft [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, November 02, 2004 2:35 PM
Subject: [delphi-br] Comportamento da tecla [enter] em formulários
Amigos,
Pergunta básica: Como faço para dentro de um formulário a tecla [enter]
tenha comportamento igual a [tab] (ir para o próximo campo) ?
Obrigado,
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
