Avanzar Edits con Enter
 

Tengo el siguiente codigo para que se pueda avanzar en los diferentes edits mediante el enter y no el tab.

[code]
procedure TfIngreso.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 and ( ActiveControl <> TBitBtn ) then
begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;
end;
end;

Usando D6 no me compila en las palabras en negrita, alguna sugerencia?
Gracias

¿Cuáles palabras en negritas? ¡No veo ninguna! :confused:

Siempre es bueno que nos digas cuál es el error que te da el compilador, a simple vista le haría dos sutiles cambios:

Código Delphi [-]
If (Key = #13) and (ActiveControl.ClassType <> TBitBtn) then

Saludos!

Perdon,perdon,perdon.
Escribi primero el mensaje , pensando en ponerle las negritas despues y lo envie.
El texto en negrita era ( ActiveControl <> TBitBtn ) , aunque no
probé la respuesta de delphi.com.ar , creo q x ahi esta la respuesta.

Muchas gracias a ambos.