Problemer med TListBox

Brug TListBox.ItemIndex

If ListBox1.ItemIndex=0 then //Linjenummer, starter med 0 :)
    Showmessage('Du har købt en hest!');
  If ListBox1.ItemIndex=1 then
    Showmessage('Du har købt to heste!');
  If ListBox1.ItemIndex=2 then
    Showmessage('Du har købt tre heste!');

Det er der ikke....Ej ok, helt præcist bruger jeg TFlatListBox. Troede bare ikke rigtigt der var forskel...sry

Link: http://www.torry.net/vcl/packs/interfacemiddle/flatstyl.zip (D5-D6)

Jo, den var der sq...sry

If ListBox1.ItemIndex = -1 then Showmessage('Du har købt katten i sækken !');
If ListBox1.ItemIndex=0 then //Linjenummer, starter med 0 :)
    Showmessage('Du har købt en hest!');
  If ListBox1.ItemIndex=1 then
    Showmessage('Du har købt to heste!');
  If ListBox1.ItemIndex=2 then
    Showmessage('Du har købt tre heste!');

Eller brug Case of:

  Case ListBox1.ItemIndex of
    0: Showmessage('Du har købt en hest!');
    1: Showmessage('Du har købt to heste!');
    2: Showmessage('Du har købt tre heste!');
    3: Showmessage('Du har købt fire heste!');
    4: Showmessage('Du har købt fem heste!');
  end;

Det er til database brug så jeg ved jo ikke hvor mange "Items" der er. Den skal vise den markerede tekst i fx Label7 når du klikker på en knap

Martinlind -> Copypaste med lidt tilføjelser...

Showmessage(Listbox1.items[listbox1.itemindex]);

en forsøg på at være sjov, og kun en kommentar :)

Martinlind -> ;)

Label7.Caption:=ListBox1.Items[ListBox1.ItemIndex]);

if MyFlatListBox1.ItemIndex <> -1 then
Label7.Caption := MyFlatListBox1.Items[MyFlatListBox1.ItemIndex]
else
Label7.Caption := 'Du skal vælge noget i listbox'''en';

YES....Du er for sej athlon-pascal :D > TAKKER MEGET ... Og tak til alle andre der forsøgte :D

Mvh
Mr.Meincke

Martinlind:=Alle andre...

Tak for points :)

np xD ;)

Ja, "sikker kode" tager 14 sec. længere at skrive, men "holder tilgengæld længere"

*GG*