[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    This example shows a message for every element in a listbox that
    has been selected by the user.

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Loop: Integer;
    begin
      for Loop := 0 to Listbox1.Items.Count - 1 do begin
        if Listbox1.Selected[Loop] then
          ShowMessage(Listbox1.Items.Strings[Loop]);
      end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]