Listbox, hvordan få den til å "liste" noe..

[Stian89]

Dagen.

 

Prøver å legge til en ListBox på formen min, men lurer på hvordan jeg kan få den til å "liste" noe i det hele tatt. Fatter ikke

 

Hvordan adde items til listboxen?

 

 

edit:

OK

 

bruker listbox1.items.add('test'); for å adde itemer

 

Hvordan få noe til å skje, når man trykker på itemet "test"?

Endret 1. juli 2005 av Stian89

[KodeHode]

Legg koden for hva som skal skje når items velges i TListBox.OnClick...

 

Kanskje starte koden med if ListBox.Items.Count>0 then ..... så slipper du exceptions dersom lista er tom...

 

 

Så er det jo bare sjekke hvilket item som er valgt.. enten basert på ListBox.ItemIndex dersom du vet rekkefølgen på dem eller bare bruke ListBox.Text som viser caption på valgt item...

 

 

 

..:: KodeHode ::..

[tasle]

Du kan bruke listboksens OnClick eller OnDblClick:

 

procedure TForm1.ListBox1Click (Sender: TObject);
var
 LinjeNr : Integer;
begin
 LinjeNr:= Listbox1.ItemIndex;
 if LinjeNr > -1 then
    Label1.Caption:= Listbox1.Items [LinjeNr]; 
end;

[Stian89]

Men hvordan assigne en individuell task til hvert forskjellige item på lista?

[tasle]

procedure TForm1.ListBox1Click (Sender: TObject);
var
LinjeNr : Integer;
begin
LinjeNr:= Listbox1.ItemIndex;
Case LinjeNr of
   0: KokePoteter;
   1: SjekkePosten;
   2: FyllUtTippeKupongen;
 end;  // Case    
end;

 

Her kalles 3 forskjellige prosedyrer opp alt ettersom hvilken linje du klikker på.

[Stian89]

takker