Just nu i M3-nätverket
Jump to content

Listbox...


Mikey

Recommended Posts

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

Link to comment
Share on other sites

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;

 

Link to comment
Share on other sites

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])));

Link to comment
Share on other sites

Archived

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



×
×
  • Create New...