listbox1.Selected

Tags:    delphi

hvordan kan jeg få X til at blive det items nr. som er valgt.
er det ItemsIndex man skal bruge til det?? er der ikke lige en der kan fortælle mig det? håber I forstår havd jeg mener.


procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.Selected[X] then
webbrowser.Navigate('www.my-site.dk/' + X '.htm');
end;

for det er meget nemere istedet for at gøre det på denne måde

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.Selected[0] then
webbrowser.Navigate('www.my-site.dk/0.htm');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.Selected[1] then
webbrowser.Navigate('www.my-site.dk/1.htm');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
if listbox1.Selected[2] then
webbrowser.Navigate('www.my-site.dk/2.htm');
end;



5 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Du har helt ret du skal bruge ListBox1.ItemIndex.

Fold kodeboks ind/udKode 


Men det kan vel også gøres uden if sætningen:

Fold kodeboks ind/udKode 


T dér



kan ikke få et til at virke :(

procedure TForm1.ListBox1Click(Sender: TObject);
begin
webbrowser.Navigate('www.my-site.dk/' + listbox1.ItemsIndex + '.htm');
end;



UPS mindre fejl Sorry

Nu skulle det virke, havde glemt at konvertere itemindex til en string.

Fold kodeboks ind/udKode 


Vh

T dér



den virker ik' jeg får den fejl
[Error] Unit1.pas(42): Undeclared identifier: 'ItemsIndex'



Det er fordi det er stavet forkert!
Det hedder:

Listbox1.ItemIndex

Sorry endnu engang!

T dér



t