Just nu i M3-nätverket
Jump to content

Listbox


Kimpen

Recommended Posts

Om jag har en listbox med en massa alternativ.

Om jag klickar på en rad där det står t ex Bilar, hur gör jag för att få en label.caption till Bilar? Klickar jag på en annan rad där det står något annat ska label.caption få ett annat värde...

Link to comment
Share on other sites

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Label1.Caption:=Listbox1.Items[ListBox1.ItemIndex];

end;

 

eller om man inte vill ha exakt som listboxen:

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Case Listbox1.ItemIndex of

0:Label1.Caption:='1';

1:Label1.Caption:='2';

2:Label1.Caption:='3';

3:Label1.Caption:='Bilar';

4:Label1.Caption:='5';

end;

end;

Link to comment
Share on other sites

  • 2 weeks later...

Skriv så här ..

 

Label1.Caption:=Listbox1.ItemsListBox1.ItemIndex-1]

 

Ange alltid -1 annars kommer det att bli "list index out of bonds" eller ett meddelande något i den stilen...

 

Link to comment
Share on other sites

Ja..ja jag erkänner det var måndag, hjärnan var inte trimmad efter helgen.

 

Detta var rätt

ListBox.Items.Strings[ListBox.ItemIndex]

 

Det skall vara om du typ gör en if sats

så skall man ange listbox.items.count-1

 

ie.

 

for i:= 0 to ListBox.Items.Count - 1 do begin

// bla bla

end:

 

Ah ja ..

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...