foco no edit

Question

tenho um formulario com varios edits ...kero que no evento keypress do edit, quando for detectado um enter , ele coloque o foco no proximo edit, como poderia fazer isso??[]s...

Martins · Answer

Mude a propriedade KeyPreview do Form para True e insira no evento OnKeyPress do Form o c�digo abaixo.

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

PS: S� lembrando q os componentes devem est� ordenados corretamente para evitar confus�o.

Boa sorte!!!

Michael · Answer

Apenas complementando a resposta do [b:dd0f0f29f9]Martins[/b:dd0f0f29f9], tbm � poss�vel usar o m�todo SelectNext da classe TWinControl.

[quote:dd0f0f29f9=�A Borland�][b:dd0f0f29f9]procedure [/b:dd0f0f29f9]SelectNext(CurControl: TWinControl; GoForward, CheckTabStop: Boolean);[/quote:dd0f0f29f9]

if Key = Chr(VK_RETURN) then
begin
  SelectNext(Sender as TWinControl, True, True);
  Key := Chr(VK_NONE);
end;

Pessoalmente uso constantes para os c�digos das teclas em fun��o de tornar mais l�givel o c�digo. ;-)

[]�s