Problema con ComboBox

[grotero76]

Buenas a todos,

tengo un combobox con la propiedad Style a CsDropDown. Todo funciona bien salvo en un caso.

Si despliego el combobox y con él desplegado pulso una tecla realiza la búsqueda bien y parece que selecciona el elemento que corresponde pero al salir del combobox a pesar de que el elemento queda escrito en el combo la propiedad itemindex está a -1, como si no hubiera nada seleccionado.

En cambio si selecciono manualmente el elemento que quiera o sin haber desplegado el combo busco el elemento pulsando teclas hace la selección perfectamente.

¿Os ha pasado esto alguna vez?.

Muchas gracias.

Un saludo.

[*Caro*]

Hola grotero76, la verdad ni me había dado cuenta que eso pasaba, al parecer solo pasa la primera vez, lo que se me ocurre es buscar el Indice en el evento OnExit del ComboBox y actualizarlo ademas de tener una banderita para que ese codigo se ejecute solo una vez. Seguro que a alguien se le ocurrira algo mejor.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Flg:=0;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
var
 Ind : Integer;
begin
 if Flg= 0 then
  begin
   Ind:=ComboBox1.Items.IndexOf(ComboBox1.Text);
   ComboBox1.ItemIndex := Ind;
   Flg:=1;
  end;
end;

Saluditos