cambiar foco de un control a otro

[ecfisa]

Empezado por newtron

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:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  KeyPreview = true;  /* se puede asignar desde el Object Inspector */
}

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
TMsg *Msg;
   if(Key == VK_RETURN){
     PeekMessage(Msg, 0, WM_CHAR, WM_CHAR,PM_REMOVE); /* Quitar Beep */
     SelectNext(ActiveControl, true, true);
   }
}

Un saludo.

[[newtron]]

Empezado por ecfisa

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

Pues fíjate que hasta cuando me equivoco acierto.

[[escafandra]]

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í:

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   TMsg Msg;
   if(Key == VK_RETURN){
     PeekMessage(&Msg, 0, WM_CHAR, WM_CHAR,PM_REMOVE);
     SelectNext(ActiveControl, true, true);
   }
}

O así:

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

Aunque lo que apuntó newtron se entiende mejor y tiene una traducción casi literal:

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

Las dos opciones son perfectamente válidas

Saludos.

[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