Apertando Enter manda foco para próximo componente

Delphi

22/09/2004

Gostaria de saber o comando que colocado no evento onKeypress do componete edit ao clicar na tecla enter manda para o proximo componente.



[b:fbbc91483c]Título editado: ´APERTANDO ENTER MANDA FOCO PARA PROXIMO COMPONENTE´[/b:fbbc91483c]

sopinha,
Não escreva o título do tópico utilizando caixa alta. Além de desagradável, equivale a gritar. Conto com sua colaboração.
Por favor, leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url].
Sandra/Moderação


Spalenza

Spalenza

Curtidas 0

Respostas

Sandra

Sandra

22/09/2004

sopinha,

Sua dúvida está relacionada com este tópico => http://delphiforum.icft.com.br/forum/viewtopic.php?t=52027 , certo?
Então, neste caso, você poderia ter utilizado o mesmo tópico para buscar uma solução para sua dúvida.
As dicas do Aroldo não ajudou a solucionar seu problema?
Bem, este assunto já foi discutido muitas vezes. Por isso, a dica de usar a o link [url=http://delphiforum.icft.com.br/forum/search.php][img:64bd17faff]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:64bd17faff] Pesquisar[/url], localizado no menu principal do fórum.

De qualquer forma, respondendo:
- altere a propriedade KeyPreview do form para True;
- no evento OnKeyPress, escreva:
if (Key = #13) then
  begin
    Key := 0;
    Perform(Wm_NextDlgCtl,0,0);
  end 
else
  if (Key = 27) then
    begin
      Key := 0;
      Perform(Wm_NextDlgCtl,-1,0);
    end;


Espero que seja assim. :D


GOSTEI 0
Pro-luck

Pro-luck

22/09/2004

Sem querer desmerecer a dica da colega Sandra, tb sugiro o seguinte:

Na propriedade KeyPreview do Form em questão escolha a opção True e, no evento OnKeyPress digite o seguite:


if (Key = #13) then
begin
Perform (CM_DialogKey, VK_TAB, 0);
Key := 0;
end;

Acho mais simples assim...

Qquer coisa, tamos aí...


GOSTEI 0
Jose Dantos

Jose Dantos

22/09/2004

procedure TTFormLogin.Edt1_LoginKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
BEGIN
Edt2_Senha.SetFocus;
END;
end;
GOSTEI 0
POSTAR