cambiar foco de un control a otro
 

Hola comunidad

Necesito saber como se puede lograr que cuando un usuario esta escribiendo algo en un Edit por ejemplo y presione ENTER cambie a otro edit para continuar. he tratado llamando la propiedad Edit1->Focused() pero no lo hace y no se si estoy haciendo algo mal o no.

gracias de antemano

NOMBRE_DEL_OBJETO.SetFocus;
en el evento onexit del primer objeto

Hola impadron.

Probá asignando este código a el evento OnKeyPress de los Edits en que desees ese comportamiento:
Saludos.

Hola.

Yo lo que hago es poner este código en el FormKeyDown del formulario, además de esto tienes que activar el KeyPreview del mismo a true. Con esto te servirá para todos los controles del formulario.

Código Delphi [-]
  case Key of

    VK_UP: begin
      SelectNext(ActiveControl, False, True);
      Key := 0;
    end;

    VK_DOWN: begin
      SelectNext(ActiveControl, True, True);
      Key := 0;
    end;

  end;

Saludos


Edito: Perdón perdón... no había visto que era de C++

Pero... es que tu respuesta es totalmente correcta mi estimado newtron! ;)

Así que traduciendo a C++ y tomando en cuenta que quiere verificar la tecla Enter sería:
Un saludo. :)

Pues fíjate que hasta cuando me equivoco acierto. :D

Quisiera hacer un comentario al último código de ecfisa.

Declaras un puntero a TMsg, ese puntero no apunta a nada válido, no está inicializado. Antes o después dará lugar a un error difícil de depurar. Las prisas...;)

Tu código está mejor así:
O así:
Aunque lo que apuntó newtron se entiende mejor y tiene una traducción casi literal:
Las dos opciones son perfectamente válidas :)

Saludos.

Lo que me faltó aclarar es que como en ese caso se altera el comportamiento de la tecla Enter para todos los componentes del Form, puede dar resultados no deseados. Como por ejemplo en el caso del StringGrid.

Saludos.

Hola escafandra.

Tenés toda la razón sobre el puntero (que es innecesario) y sobre el apuro ;), escribí el código directo sobre el mensaje y la traducción no fué la mejor...:o

Pero con referencia a el código:
que mencinás arriba, recordaba que en Delphi la asignación Key:= 0; no quita el beep (por eso usaba PeekMessage), por lo que lo probé en Builder y tampoco lo hace.

Un saludo.:)

Y ya que estamos me acordé de otro modo de hacer lo mismo. :)

Saludos.

Tienes razón en lo del Beep. :)

Siguiendo la estela del bajo nivel, nada nos impide usar solo la API. :D

Saludos.

Una variante, usando un componente ApplicationEvents:

Código Delphi [-]
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
  with Msg do
    if (message = WM_KEYDOWN) and (wParam = VK_RETURN) and (ActiveControl is TCustomEdit) then
    begin
      SelectNext(ActiveControl, true, true);
      Handled := true; // con esto quitamos el beep
    end;
end;

// Saludos

Buena variante roman. :)

Saludos.

Lo que siempre digo: román nunca deja de sorprenderme... ;):)

Saludos.

Pues es prácticamente lo mismo que lo de ustedes, con el único agregado de comprobar se es un Edit. Lo que es a mi, eso del PeekMessage en delphi como que no se me da :p

// Saludos

Gracias amigos por su ayuda

como los objetos estan desorganizados utilize lo siguiente

y funciono perfectamente