Un comportamiento más útil para ComboBox

[jhonalone]

¡ Vaya |

Veo que el código no salió correctamente.

Mis disculpas.

[Casimiro Noteví]

Empezado por jhonalone

¡ Vaya |
Veo que el código no salió correctamente.
Mis disculpas.

Ocurre algunas veces, voy a intentar arreglarlo...

[ecfisa]

Hola jhonalone.

Creo que podrías hacer:

Código Delphi [-]
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
      or(GetKeyState(VK_RETURN) < 0) then Exit;
  ...
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0)
      or(GetKeyState(VK_RETURN) < 0) then Exit;
  ...
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   Mgs: TMsg;
begin
   if Key = VK_RETURN then
   begin
     // Aqui llamá a tu procedimiento o poné el código a ejecutar
     PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); // quitar el molesto beep 
     ShowMessage('Intro fué presionada');
   end;
end;

Saludos.

[jhonalone]

Gracias de nuevo Ecfisa.

Te cuento en la situación que estoy:

El combo se rellena y se hace visible y desplegado con:

Código Delphi [-]
procedure TFClien.SpeedButton3Click(Sender: TObject);
var
   NoHayMas: Boolean;
begin
ClienDB.Filtered := False;
ClienDB.Filter := 'Nom= '+QuotedStr(LMDEdit6.Text+'*');
ClienDB.Filtered := True;
Combobox1.Clear;
NoHayMas := False;
if ClienDB.FindFirst
then Combobox1.Items.Add(ClienDBNom.AsString);
while NoHayMas=False
do begin
   if ClienDB.FindNext
   then Combobox1.Items.Add(ClienDBNom.AsString)
   else NoHayMas := True;
   end;
Combobox1.ItemIndex := -1;
ClienDB.Filtered := False;
if Combobox1.Items.Count > 0
then begin
      if (Combobox1.Items.Count = 1) and  // Es el mismo
         (Combobox1.Items.Strings[0] = LMDEdit6.Text)
      then begin
           Combobox1.Visible:=False;
           Beep;
           Exit;
           end;
     Combobox1.Visible:=True;
     Combobox1.ItemIndex := 0;
     ComboBox1.SetFocus;
     ComboBox1.Perform(CB_SHOWDROPDOWN, 1,0);// Despliega el Combo
     ComboBox1.SetFocus;
     end
else PonDatosCli;
end;

A este procedimiento lo llamo desde aquí:

Código Delphi [-]
procedure TFClien.LMDEdit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Button6.Enabled // Si no está en Altas
then begin
     if Key=vk_RETURN
     then begin
          if ValorOriginal<>LMDEdit6.Text
          then SpeedButton3.Click;
          end;
     end;
end;

Utilizo el procedimiento siquiente para bloquear OnClick al mover las flechas y utilizarlo cuando se pulse Click sobre un Item:

Código Delphi [-]
procedure TFClien.ComboBox1Click(Sender: TObject);
begin
if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0) then Exit;
ClienDB.SetKey;
ClienDB['Nom'] := Combobox1.Items.Strings[Combobox1.ItemIndex];
ClienDB.GotoNearest;
// Segunda Base Clien2DB
FClien.Clien2DB.SetKey;
FClien.Clien2DB['Nom'] := Combobox1.Items.Strings[Combobox1.ItemIndex];
FClien.Clien2DB.GotoNearest;
//Comprobamos que hemos leido el mismo cliente en las dos bases
if FClien.ClienDBNom.AsString <> FClien.Clien2DBNom.AsString
then begin
     ShowMessage('La Base de Clientes de reserva, puede no estar actualizada.'+#13+
                 'Conviene que salga del programa y entre de nuevo para corregir este error.');
     end;
PonDatosCli;
Combobox1.Visible:=False;
end;

En los eventos OnKeyDown y OnKeyPress del combo, no me reconece la tecla Enter:

Código Delphi [-]
procedure TFClien.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=vk_RETURN
     then beep;
end;

No se oye el BEEP al pulsar Enter.

Tampoco se oye al pulsar enter en OnKeyPress:

Código Delphi [-]
procedure TFClien.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Beep;
if key = #27 then Combobox1.Visible:=False;
end;

Sin embargo, si pulso ESCAPE se cierra el combo.

He recurrido al evento ONKeyUp:

Código Delphi [-]
procedure TFClien.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=vk_RETURN
     then begin
          ClienDB.SetKey;
          ClienDB['Nom'] := Combobox1.Items.Strings[Combobox1.ItemIndex];
          ClienDB.GotoNearest;
          // Segunda Base Clien2DB
          FClien.Clien2DB.SetKey;
          FClien.Clien2DB['Nom'] := Combobox1.Items.Strings[Combobox1.ItemIndex];
          FClien.Clien2DB.GotoNearest;
          //Comprobamos que hemos leido el mismo cliente en las dos bases
          if FClien.ClienDBNom.AsString <> FClien.Clien2DBNom.AsString
          then begin
               ShowMessage('La Base de Clientes de reserva, puede no estar actualizada.'+#13+
                           'Conviene que salga del programa y entre de nuevo para corregir este error.');
               end;
          PonDatosCli;
          Combobox1.Visible:=False;
          end;
end;

El mismo Código que en OnClick.

Bueno pues esto funciona así:

Antes de asignar el procedimiento OnKey press.
El combo se queda desplegado.
Si hago click en un item con el ratón, presenta bien los datos.
Muevo las teclas arriba y abajo y selecciona el item y actualiza el texto del Combo.
Si pulso Enter no hace nada y no se oye el BEEP.

Después de asignar el procedimiento a OnKeyPress
Se despliega el Combo, selecciona el primer item de la lista, pone los datos correctos de este item y cierra el Combo. No espera deplegado a que pulse ninguna tecla, es como si siguiera vigente el Enter de TFCliien.LMDEditKeyDown() (El procedimiento que llama a TFClien.SpeedButton3(), que es el procedimiento que rellena y presenta el combo)

Quizá me he extendido demasiado, pero quería dejarte clara la situación.

Espero que me digas cómo evito que quede en memoria el primer ENTER que llama al procemiento que rellena y despliega el Combo.

Gracias de antemano.

Un Saludo.

[ecfisa]

Hola jhonalone.

Veo que en el evento OnClick de tu código figura:

Código Delphi [-]
...
  if (GetKeyState(VK_DOWN)<0)or(GetKeyState(VK_UP)<0) then Exit;
...

Pero si revisás el código de mi último mensaje verás que en los eventos OnClick y OnChange también evaluo:

Código Delphi [-]
...
  if (GetKeyState(VK_DOWN)<0) or (GetKeyState(VK_UP)<0)
      or (GetKeyState(VK_RETURN) < 0) then Exit;
...

El valor de la tecla presionada lo podés evaluar en el evento OnKeyDown sin ningún problema.

Saludos.

[jhonalone]

Muchas gracias, de nuevo, Ecfisa.

¡¡¡ CONSEGUIDO !!!

Pero te informo cómo:

(GetKeyState(VK_RETURN) < 0) no ha sido necesario ponerlo en OnClick.

El evento OnChange está vacío.

Sigue sin reconocer la tecla ENTER ni en OnKeyDown ni en OnKeyPress.

He tenido que despreciar la primera pulsación de Enter que provenía del procedimiento TFClien.LMDEdit6KeyDown() que era la que provocaba la autoselección en el Combo.
Paraa ello he utilizado una variable boleana global, que se activa al pulsar el primer Enter en el procedimiento TFClien.LMDEdit6KeyDown() y se desactiva al autoseleccionarse el Combo por medio del procedimiento TFClien.ComboBox1KeyUp() al recibir el foco el Combo.

Sigo sin entender, ¿por qué no reconoce la tecla Enter en OnKeyDown ni en OnKeyPress?

Tampoco ha sido necesario desactivar el BEEP al pulsar ENTER, simplemente porque no sonaba, pero me guardo el código para cuando lo necesite, que es muy útil.

Dejo las modificaciones, para quien le pueda interesar:

Código Delphi [-]
var //Global a la Form
  PrimeraVezEnter: Boolean;
...............
// Procedimiento inductor de la llamada con Enter
procedure TFClien.LMDEdit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Button6.Enabled // Si no está en Altas
then begin
     if Key=vk_RETURN
     then begin
          if ValorOriginal<>LMDEdit6.Text
          then begin
               SpeedButton3.Click;
               PrimeraVezEnter := True;
               end;
          end;
     end;
end;

//En el procedimiento que rellena el Combo,( después de rellenarlo)
procedure TFClien.SpeedButton3Click(Sender: TObject);
begin
.......................     
  Combobox1.Visible:=True;     
  Combobox1.ItemIndex := 0;     
  ComboBox1.SetFocus;     
  ComboBox1.Perform(CB_SHOWDROPDOWN, 1,0);
  // Despliega el Combo    
  ComboBox1.SetFocus;
  ..............
end;

// En el evento OnKeyUp del Combo (OnkeyDown y OnKeyPress no reconecen ENTER)
procedure TFClien.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
beginif Key=vk_RETURN
     then begin
          if PrimeraVezEnter
          then begin
               PrimeraVezEnter := False;
               Exit;
               end;
          end;// Instrucciones al seleccionar item en el Combo.............
end;

Dejo el mecanismo de acción por si interesa a alguien.

Gracias una vez más, Ecfica, por tu ayuda y esfuerzo, sin ellos no lo hubiera conseguido. ¡Eres mi ídolo...|
¡A ver cúanto aguanto sin tener que molestarte!

Saludos...