Fórum Usar enter no lugar de tab #276864

Boa tarde a todos.
Eu já utilizo este evento nos meu formulários e funciona legal. Porém agora eu tenho um formulário com uma PageControl. Nos componentes que estão dentro da pagecontrol não tem jeito de funcionar a tecla enter. Será que é necessário criar o envento OnKeyPress em cada dbedit? Ou tem alguma maneira mais fácil e prática? Alguém poderia me ajudar? Obrigada.

procedure TFCadastro.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
Key:= 0;
SelectNext(ActiveControl,true,true);
end;
end;