sexta-feira, 22 de fevereiro de 2013

Passar com enter nas caixas de texto no Delphi!

Para passar com enter nas caixas de texto(edit), comece mudando a propriedade:
 KeyPreview do form Cadastro Agenda para True.

No evento OnKeyPress do form coloque o código no procedimento:

//verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi como #13
If key = #13 then
Begin
//se for, passa o foco para o próximo campo, zerando o valor da variável Key
Key:= #0;
Perform(Wm_NextDlgCtl,0,0);
end;

 É só testar.

Um comentário:

  1. A detailed review of Evolution Gaming casino software - Dr. MD
    The 태백 출장안마 most important element to a casino game is 밀양 출장안마 the number of ways 고양 출장안마 you can make your own money. 동두천 출장안마 You can choose from more than 50 slot machines, and more 고양 출장안마 than 500 casino

    ResponderExcluir