Auswahl aus der Listbox

[Gerhard]

Hi,

ich habe auf einer Form eine Listbox erstellt. Die Listbox besitzt mehrer Einträge. Mein Wunsch wäre nun, einen bestimmen Eintrag nicht mit der Maus sonder nur mit Tasten auszuwählen. Schwierigkeiten macht mir die Änderung der Auswahlzeile, meine Vorstellung wäre in etwa so

FormX.listboxX.onkeydown...

if (ord(key))= xxx then begin
wähle die nächste (bzw. vorhergehende) Zeile aus der Listbox
...


Danke für die Tips!

Gerhard

[Mirilin]

:hi:

Schau Dir mal ItemIndex an.

mfg Tobias

[Gerhard]

Habe Listbox.itemindex:= ..+1 und soweiter schon getestet, jedoch ist die Auswahl nicht mitgegangen!

Gerhard

[Mirilin]

:hi:

Also bei mir hats geklappt.

Delphi-Quellcode:

procedure TMainForm.ListBoxKeyPress(Sender: TObject; var Key: Char);
begin
  if Uppercase(Key) = 'U' then
  begin
    if ListBox.ItemIndex = 0 then
      ListBox.ItemIndex := ListBox.Items.Count-1
    else
      ListBox.ItemIndex := ListBox.ItemIndex - 1;
  end;
  if Uppercase(Key) = 'D' then
  begin
    if ListBox.ItemIndex = ListBox.Items.Count - 1 then
      ListBox.ItemIndex := 0
    else
      ListBox.ItemIndex := ListBox.ItemIndex + 1;
  end;
end;

mfg Tobias

[Gerhard]

Danke hierfür,

der Source funktioniert, habe ihn getestet!

Aber: wenn ein Eintrag mit dem gleichen Buchstaben beginnt zB. 'u' springt die Markierung auf den mit u beginnenden String und bleibt dort sitzen....

Was soll ich nun machen?

Gerhard

[Mirilin]

:hi:

:gruebel: ich glaube "AutoComplete" auf False sollte funktionieren.


mfg Tobias