Focus in ListBox

[Fritz01]

Hallo,
mit folgendem Code suche ich Daten aus einer Tabelle, die in einer TDBLookUpListBox dargestellt werden.

Delphi-Quellcode:

procedure TFormHaupt.EdtHunNameChange(Sender: TObject);
var
n : Integer;
wort : String;
begin
  wort := EdtHunName.Text;
  n := length(trim(wort));
  if n > 0 then
  begin
    FormDaten.tZucht.Locate('HuNam',wort,[loCaseInsensitive,loPartialKey]);
  end
  else FormDaten.tZucht.First;
end;

Nun meine Frage dazu:
Ist es machbar, den Focus in der ListBox auf den jeweils gefundenen Datensatz zu setzen?
Vielleicht ist es recht einfach, ich komm nicht drauf und gefunden habe ich auch nichts passendes.
Fritz01

[mkinzler]

Ich stelle mir hier die Frage, ob die LookUp-Komponente hier richtig angewendet worden ist. Sie dient nicht zum Darstellen eine Suchergebnisses sondern zur Auswahl.

[Fritz01]

Hallo mkinzler,
ja, zumal die LookUp-Komponente mit einer weiteren Tabelle verknüpft ist.
Hier Hunde, die mit den Besitzern bzw. Züchtern verküft sind.
Fritz01

[mkinzler]

Skizziere mal kurz wie die daten verknüpft sind und wie der obige Edit im Zusammenhang mit dem lookup steht.

[Fritz01]

Hallo mkinzler,
ja, ja ist ja ok. Die Verknüpfung ist natürlich in der TTable Eigenschaft. Habe mich da falsch ausgedrückt. Sorry.
Habe immer LookUpBox benutzt. Könnte ja auch eine andere ListBox sein war für mich der einfachste Weg. Was spricht gegen LookUp?
Meine Frage war aber wie ich mit der Suchfunktion den Focus bekomme, dh. die gefundenen Daten sollten farblich hervorgehoben sein wie mit MouseClick.
Fritz01

[mkinzler]

Du hast also ein Edit, der die Auswahl in der Auswahl-Loojup erleichtern soll?
Du könntest es mal mit .SearchText versuchen.

[Fritz01]

das hilft nicht wirklich weiter

[mkinzler]

Dann mußt du wirklich eine normale ListBox nehmen, diese besitzt die Eigenschaft .Selected.