Article #16297: Navigating a Multiselected Listbox

 Technical Information Database

TI1297D.txt   Navigating a Multiselected Listbox
Category   :VCL
Platform    :All
Product    :Delphi  All

Description:
Navigating a multiselected listbox

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;

Reference:


7/16/98 4:34:08 PM
 

Last Modified: 01-SEP-99