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

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

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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 939 • TDictionary Custom Sort 6 046 • Fast Watermark Sources 5 848 • 3D Designer 8 668 • Sik Screen Capture 6 171 • Patch Maker 6 606 • Айболит (remote control) 6 600 • ListBox Drag & Drop 5 457 • Доска для игры Реверси 95 424 • Графические эффекты 6 808 • Рисование по маске 5 999 • Перетаскивание изображений 4 986 • Canvas Drawing 5 355 • Рисование Луны 5 081 • Поворот изображения 4 619 • Рисование стержней 3 274 • Paint on Shape 2 516 • Генератор кроссвордов 3 408 • Головоломка Paletto 2 717 • Теорема Монжа об окружностях 3 505 • Пазл Numbrix 2 306 • Заборы и коммивояжеры 2 994 • Игра HIP 1 950 • Игра Go (Го) 1 870 • Симулятор лифта 2 219 • Программа укладки плитки 1 935 • Генератор лабиринта 2 373 • Проверка числового ввода 2 060 • HEX View 2 382 • Физический маятник 2 015

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

Похожие по теме исходники