Busqueda incremental en un Edit

[dekorone16]

tengo este codigo en el evento onChange y tambien lo eh probado en el onKeyPress, es el mismo que publicaste al principio solo que no encuentro el error para que al momento de seleccionar el registro que quiero se eliminen los demas items

with TComboBox(Sender) do
  begin
    if Text > '' then
    begin
      dm.q3.Close;
      dm.q3.SQL.Clear;
      dm.q3.SQL.Add('SELECT Nombre FROM rh_empleados');
      dm.q3.SQL.Add('WHERE Nombre LIKE UPPER(:Nombre)');
      dm.q3.ParamByName('Nombre').AsString:= ComboBox1.Text+'%';
      dm.q3.Open;
      while not dm.q3.Eof do
      begin
        if Items.IndexOf(dm.q3.FieldByName('Nombre').AsString) = -1 then
           ComboBox1.Items.Add(dm.q3.FieldByName('Nombre').AsString);
           dm.q3.Next;
      end;
           Height:= DropDownCount * CBOX_HEIGHT;
    end
    else
    begin
          Clear;
          Height:= CBOX_HEIGHT;
    end;
  end;

[ecfisa]

Hola dekorone16.

Como ya te comente en el mensaje #14:

Lo que podría no ser el evento que desees considerar para determinar que un ítem a sido seleccionado. Pero basta con ejecutar el código en el evento que prefieras para obtener el comportamiento. Como por ejemplo en OnKeyPreess cuando se presione tecla Intro.

Más concretamente, ¿ Cuando deseas que se considere que se ya se realizó la selección ?

• ¿ Cuando se presionó Intro ?
• ¿ Cuando se hizo doble click ?
• ¿ Cuando abandona el componente ?

Entonces, todo pasa por poner el código que te indiqué en el evento que desees, eso ya es tu decisión.

Para ejemplificar voy a considerar que el usuario seleccionó un item en cualquiera de estos casos:

1. Presionó la tecla Enter.
2. Hizo doble click sobre la lista
3. Salió del componente.

Código Delphi [-]
...
procedure LimpiarYPlegar(AComboBox: TComboBox);
begin
  // Código que limpia los items y pliega el combo
  with AComboBox do 
  begin
    Items.Clear;
    Height:= CBOX_HEIGHT
  end;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then  // Tecla Intro ?
    LimpiarYPlegar(TComboBox(Sender)) 
end;

procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
  LimpiarYPlegar(TComboBox(Sender))
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
   LimpiarYPlegar(TComboBox(Sender))
end;

Como es llamado desde tres eventos, para evitar redundancia puse el código dentro de un procedimiento, pero como verás es la misma porción de código de que he estado hablando.

En cualquier caso, encontrarás el valor seleccionado en la propiedad Text del TComboBox o cadena vacía si ninguno fué seleccionado.

Saludos.

[dekorone16]

Muchísimas gracias con ese procedimiento ya quedo, gracias y perdón por la insistencia !!!!