DBLookupListBox incremental Search

[Mike_]

Hallo,

ich möchte gerne für deine DBLookupListBox eine Suchfunktion einbauen.

Hierfür habe ich nun auf meiner Form:

DBLookUpListBox1
Edit1


Im Internet gab es eine Anleitung für die normale ListBox, welche ich dann mit eine Sache abgeändert hatte:

Delphi-Quellcode:

 procedure TListBoxSearchForm.Edit1Change(Sender: TObject) ;
 const
   indexStart = -1;
 var
   search : array[0..128] of Char;
 begin
   //make sure Length(Edit1.Text) <= 128
   StrPCopy(search, Edit1.Text) ;
   ListBox1.----->ItemIndex<--- := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
 end;

Diese Stelle habe ich in ListFieldIndex umbenannt.

Klappt aber überhaupt nicht.

Es tut sich nichts (Auch keine Fehlermeldung), wenn man etwas in das Editfeld schreibt.



Nun dachte ich mir dann setze ich die Query einfach anders und fülle quasi die DBLookUpListBox neu... denkst wie folgt ging es nicht:

Delphi-Quellcode:

Formname.database_xx.sql.text := 'query Where name like qwe';
DBLookupListBox1.Update;

Es kam einfach eine leere DBLookUpListbox heraus.

Auch wenn ich die Query nicht veränderte und nur das Update ausführte kam nichts bei heraus.



Daher meine Frage, wie kann ich eine Suchfunktion einbauen, damit die DBLookUpListBox meine Suchergebnisse selektiert ?

Herzliche Grüße,

Mike


Delphiversion ist Delphi7.