Apertando Enter manda foco para pr�ximo componente

Question

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 ...

Sandra · Answer

sopinha,Sua d�vida est� relacionada com este t�pico => //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=//delphiforum.icft.com.br/forum/search.php][img:64bd17faff]//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:[code:1:64bd17faff]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;[/code:1:64bd17faff]Espero que seja assim. :D...

Pro-luck · Answer

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�...

Jose Dantos · Answer

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

F�rum Apertando Enter manda foco para pr�ximo componente #251595