Delphi 7 com n�o repetir codigo if key = #13 nos dbedits

Question

ol�, pessoal estou construindo um prg e como fa�o para n�o ficar repetindoIf key = #13 then    DbMarca.SetFocus;if key ....    db.....setfocus;...

Joel Rodrigues · Answer

Voc� pode selecionar todos os seus edits de uma vez e, no Object Inspector, lig�-los a um �nico evento onKeyPress.
Altere o TabOrder dos edits para que eles fiquem na sequ�ncia correta na tela e use o seguinte c�digo:

if Key = #13 then
Perform(WM_NEXTDLGCTL, 0, 0);

Com isso, se o enter for pressionado, o pr�ximo controle da tela receber� o foco (n�o necessariamente ser� um edit, pode ser qualquer controle que receba foco). Caso deseje que um certo controle n�o possa receber o foco atrav�s do tab, mude a propriedade TabStop para false.

Wasley Portes · Answer

Eu particularmente prefiro colocar esse c�digo no evento KeyPress do Formul�rio Principal e setar a propriedade KeyPreview para True. Ir� funcionar tamb�m.Abra�os...

Marcelo Augusto · Answer

Valeu Joel, um abra�o, funcionou perfeitamente;...

F�rum Delphi 7 com n�o repetir codigo if key = #13 nos dbedits #415856