dblookupcombobox1 y edit

[anubis]

Hola. Estoy intentando hacer una busqueda con un edit y un dblookupcombobox1 pero no me funciona bien.
Lo estoy haciendo con el evento onkeypress en el edit para que me fuera buscando con el locate en el lookup, pero solo me lo encuentra si escribo todo el texto que esta registrado en la tabla.

Queria que cada vez que escribiera una letra en el edit se posicionara en el lookup sobre esa letra y a medida que escribiera mas letras la busqueda fuera mas completa.

gracias

[droguerman]

ayer postee un solución parecida creo que te puede servir:

http://www.clubdelphi.com/foros/showthread.php?p=211461

[anubis]

Se agradece, pero no se como usar ese algoritmo en un dblookupcombobox, si es un listbox si porque lo compara rastreando el listbox.
Estuve mirando sobre los comodines pero no funcionan, es decir, usando el locate, con el edit1.text cuando el edit1.text es p* y el resto que buscara la primera letra que empiece por p y el resto lo pone el mismo.

alguna idea

gracias

[droguerman]

mira, lo que hace ese algoritmo es inicializar el itemIndex en -1 simular que escribes todo el texto y nada más, solo hay que hacer una variante como esta, espero os resulte:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
  i : integer;
begin
  dblookup.keyvalue := null;
  for i:= 1 to length(edit1.text) do
     SendMessage(dblookup.Handle, WM_CHAR, integer(edit1.text[i]), 0);
end;

[courtois]

en el OnKeyPress de tu edit

Código Delphi [-]
      DBLookUPComboBoxq.ListSource.Filter:='CAMPO LIKE '''+edit1.text+'%''';
      DBLookUPComboBoxq.ListSource.Filtered:=True;

[anubis]

se agradece a los dos.
Droguerman: Funciona hasta cierto punto tu algoritmo, a veces localiza el nombre y a veces no.

courtois: en el dblookupcombobox no aparece el filter ni el filtered.

[[eduarcol]]

Empezado por anubis

en el dblookupcombobox no aparece el filter ni el filtered.

Prueba esto

Código Delphi [-]
TDataset(DBLookupComboBox1.ListSource).Filter