Mover el Foco al Siguiente Control con ENTER
 

Hola amigos, estoy tratando de hacer lo siguiente, al presionar ENTER sobre un control este deberia pasar el foco al siguiente, lo hice con el procedimiento: SelectNext(ActiveControl, True, True); el cual me funciona bien, pero........ , al presionar sobre un boton la tecla ENTER, este me muestra un mensaje con ShowMessage, al presionar ENTER en el mensje este se cierra pero en mi Formulario principal sigue atrapando el ENTER, y lo pasa al siguiente control, como puedo evitar atrapar este ultimo ENTER???? :(

Hola:

Puedes poner un fragmento de tú código ??.

:)

El siguiente codigo es del evento en un boton, que tambien atrapa el ENTER.

Código Delphi [-]
 procedure TfrmLogin.btnValidarClick(Sender: TObject);
 begin
   ShowMessage( 'ERROR' );
   edtUsuario.SetFocus;
 end;

A continuacion el evento que hace el trabajo de poner el foco al siugiente control:

Código Delphi [-]
 procedure TfrmLogin.FormKeyUp(Sender: TObject;
   var Key: Word; Shift: TShiftState);
 begin
   if (ActiveControl is TEdit) then
   begin
     if Key = VK_RETURN then
     SelectNext(ActiveControl, True, True);
   end;
   if Key = VK_ESCAPE then
     Close;
 end;

El formulario consta de 2 TEdit, y 2 TButton, al presionar enter sobre un BOTON, me muestra el mensaje de error, y deberia pasar el foco a un TEdit, pero al parecer el formulario atrapa este enter y hace que se pase al SIGUIENTE control :(

Bueno espero me ayuden, Salu2

Saludos
Ocurre porque el evento KeyUp se dispara cuando dejas de presionar la tecla ("despresiona" :p). En tu caso usaría KeyDown o KeyPress

Gracias, ahora si funciona jejeje muchas gracias man.

Salu2 :)

SaludosNo problem.:)
Date un vuelta por la Etiquetas vB:Delphi-SQL , para que aprendas a usarlas y tambien Guía Estilo