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
Código:
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;