Markerer først ItemIndex:=9; så derefter ved ButtonClick.....

procedure TForm1.Button1Click(Sender: TObject);
begin
if listbox1.ItemIndex = 0 then
exit;
listbox1.ItemIndex := listbox1.ItemIndex -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
listbox1.ItemIndex := 9;
end;

takker

Forresten har lige et lille ekstra spørgsmål.... hvis der ikke er nogen ItemIndex der er markeret fra start, kan man så sige at når man trykker på Button1 så markerer den ItemIndex:=9; og så derefter 8 osv. (-1)

/ProDoc

mener du at den skal markere index 9 når du trykker på knappen, hvis der ikke var nok items i listboxen fra start??

Ja og så når man trykker på knappen så tager den 8 osv altså -1

ok, skriver det til i aften

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    frastart: boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not frastart then
  if listbox1.Count >= 10 then
  begin
  frastart := true;
  listbox1.ItemIndex := 9;
  end
  else
  exit;
if listbox1.ItemIndex = 0 then
  exit;
listbox1.ItemIndex := listbox1.ItemIndex -1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if listbox1.Count >= 10 then
begin
  frastart := true;
  listbox1.ItemIndex := 9;
end;
end;

end.