Советы по Delphi

         

Навигация в ListBox при множественном выборе


Тема: Навигация в ListBox при множественном выборе

Данный пример выводит сообщение для каждого элемента Listbox, выбранного пользователем.

    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;

[001025]



Содержание раздела