Listbox Multiselect in Firemonkey

[Harry Stahl]

Du musst unter den Eigenschaften der Listbox "Multiselect" auf true setzen.

Dann kannst Du das z.B. so prüfen, welche Items selektiert sind:

Delphi-Quellcode:

procedure TForm50.Button1Click(Sender: TObject);
var
  L, I: Integer;
begin

 i := 0;

 for L := 0 to listbox1.Items.Count-1 do begin
   if listbox1.ListItems[L].IsSelected then begin
     inc (i); // Do what you want here
   end;
 end;

 ShowMessage (i.tostring + ' items are selected');
end;