Bei wählen eines Listboxitem eine Aktion?

[messie]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(ListBox1.ItemIndex));
end;

procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #38) or (Key = #40) then //Pfeiltasten
  begin
    ShowMessage(IntToStr(ListBox1.ItemIndex));
  end;
end;

Grüße, Messie