Listbox, selected items abfragen , FMX Variante

[bernhard_LA]

dieses kurze Code Beipiel soll alle selected Items aus einer FMX Listbox auflisten, funktioniert aber nicht :-(
Wo liegt denn der Fehler ?

Delphi-Quellcode:

  

  for i := 0 to ListBox_Filenames.Items.Count - 1 do
  begin
    if (ListBox_Filenames.ListItems[i].IsSelected) then
    begin

      Label_statbar.text := ListBox_Filenames.ListItems[i].text;


      ......

[venice2]

Kannst du vielleicht über den ItemIndex gehen?
Also..

Delphi-Quellcode:

If ListBox_Filenames.ItemIndex > -1 then

Muß dazu sagen habe aber so gut wie kein wissen über FMX und ob das möglich ist.

Eigentlich müßte deine Funktion arbeiten.

[mmw]

Hallo,

so scheint es zu funktionieren.

Delphi-Quellcode:

var i:integer;

begin

ListBox_Filenames.MultiSelect:=True;

for i := 0 to ListBox_Filenames.Items.Count - 1 do
  begin
   if (ListBox_Filenames.ListItems[i].IsSelected) then
     begin
      Label_statbar.text := ListBox_Filenames.ListItems[i].text;
      Memo1.Lines.Add(ListBox_Filenames.ListItems[i].text);
     end;
  end;

Gruß

[venice2]

Delphi-Quellcode:

ListBox_Filenames.MultiSelect:=True;

Hätte ich eigentlich vorausgesetzt.
Nun gut dann liegt es wohl daran. :)