Auswahl aus der Listbox

[Mirilin]

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