cambiar foco de un control a otro

[ecfisa]

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.

[ecfisa]

Declaras un puntero a TMsg, ese puntero no apunta a nada válido, no está inicializado.

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...

Pero con referencia a el código:

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Key == VK_RETURN){
     Key = 0;  // no quita el Beep
     SelectNext(ActiveControl, true, true);
   }
}

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.

[ecfisa]

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

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key == VK_RETURN) {
    PeekMessage(0, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
    Perform(WM_NEXTDLGCTL, false, false);
  }
}

Saludos.

[[escafandra]]

Tienes razón en lo del Beep.

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

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Key == VK_RETURN){
     PeekMessage(0, 0, WM_CHAR, WM_CHAR,PM_REMOVE);
     SendMessage(Handle, WM_NEXTDLGCTL, 0, 1);
   }
}

Saludos.

[roman]

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

[[escafandra]]

Buena variante roman.

Saludos.

[ecfisa]

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

Saludos.