Listbox...

[Mikey]

Kan man spara ett integer-värde i de olika raderna i en listbox och om man klickar på en rad så kommer det olika texter i en memoruta beroende på vilket värde raden i listboxraden hade?

 

/Mikey

[B Wisser]

Lägg till följande procedure:

 

procedure Tform1.SkrivText(Tal:integer);

begin

case tal of

1:Memo1.Text:='Detta är text 1';

2:Memo1.Text:='Detta är text 2';

{osv}

end;

end;

{Glöm inte att registrera följande rad under public: procedure SkrivText(Tal:integer); }

 

Skriv in följande kod under Listboxens OnClick:

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

Skrivtext(StrToInt(Listbox1.Items[Listbox1.ItemIndex]));

end;

 

[J S]

Det går att lagra siffror i en listbox men det är lite kluddigt.

 

Nu lägger jag till en sträng plus en siffra i object.

ListBox1.Items.AddObject('Lägger till siffra nummer 5', pointer(5));

 

Visar siffran som finns i första raden i listboxen.

ShowMessage(IntToStr(Integer(ListBox1.Items.Objects[0])));