Ver Mensaje Individual
  #2  
Antiguo 06-05-2016
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
En donde dice que no es posible?

Lo podes implementar "a mano", o podes buscar por "ComboBox incremental search".

En Delphi 7 creo que no esta implementado, pero en realidad el que lo implementa es el control ComboBox de Windows que la VCL envuelve, con enviar un mensaje usando la API de Windows lo podes lograr

La otra forma es implementarlo uno mismo

Debes recorrer los strings contenidos en tu combo, comparar cada uno con la cadena de texto que esta ingresada en el combo en ese momento, y si hay coincidencia parcial, poner ese elemento como seleccionado y cortar el bucle

Código Delphi [-]
uses
  StrUtils;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  I: Integer;
  AText, s: string;
begin
  AText := ComboBox1.Text;

  if AText = EmptyStr then
    Exit;

  for I := 0 to ComboBox1.Items.Count - 1 do
  begin
    s := ComboBox1.Items[i];
    if StartsText(AText, s) then
    begin
      ComboBox1.ItemIndex := I;
      ComboBox1.SelStart := Length(AText);
      ComboBox1.SelLength := Length(s) - Length(AText);
      Break;
    end;
  end;
end;

Creo que este es un inicio

Edito: Perdon, lei mal, hablas de TListBox, pero creo que el concepto es el mismo
Responder Con Cita