Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - listbox.itemindex
JeanvanHees - Fr 23.08.02 11:00
Titel: listbox.itemindex
Gutenmorgen Auq.de...
Wie bekomme ich die index von ein selected item in eine listbox?
Ich habe 'listbox.itemindex' schon probiert aber das war scheinbar nur zum einführen von strings in die listbox?
Es funktionierte jedenfals nicht.
Tino - Fr 23.08.02 11:03
Hallo,
mit der Eigenschaft die Du genannt hast (ItemIndex) bekommt man den Index des selektierten Eintrags. Versuch es mal einfach noch mal!
Gruß
TINO
JeanvanHees - Fr 23.08.02 11:09
Diese procedure returniert mir mit listbox1.itemindex immer nur 0. Also ist auch die if immer true.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm3.Button2Click(Sender: TObject);
begin
If not listbox1.ItemIndex = -1 then
select:=listbox1.ItemIndex;
Memo1.Lines.add(inttostr(select));
Eptoshow:= listbox1.Items.Names[select];
unit5.Form5.Show;
Memo1.Lines.Add(Eptoshow);
end; |
Teutobod - Fr 23.08.02 11:25
| Zitat: |
| If not listbox1.ItemIndex = -1 |
Ein bisschen Kompliziert, hm?
Hab ich das richtig verstanden, du willst die selektierte Zeile ins Memofeld schreiben?
Funktioniert eigentlich eh (fast) mit deinem Code. Solltest vielleicht nur noch nach dem if...then ein begin und zum Schluß ein end; einfügen.
JeanvanHees - Fr 23.08.02 11:37
Indertat ist ein begin und end nötig.
Aber jetzt macht er gar nichts; also bekomm ich immer ein -1 zurück.
Was ich hier falsch mache wird sicher etwas ganz blödes sein denke ich. :(
Teutobod - Fr 23.08.02 11:42
Probier doch einfach mal das aus
Quelltext
1:
| If listbox1.ItemIndex >= 0 |
ist irgendwie nicht so umständlich
JeanvanHees - Fr 23.08.02 11:46
Ich hab es auf deine weise gemacht und jetzt tut das ding es. :x
Naja, danke für deine hilfe. :)
SMI - Fr 23.08.02 11:51
Man könnte auch if listbox1.selcount >0 Then .... nutzen
SMI
JeanvanHees - Fr 23.08.02 12:37
Ja, Ich denke das ich mal was weiniger in mixed-logic denken muss.
:wink:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!