Навигация по выбранным элементам в 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;
|
|
|
|
|
Изготовление водных горок - справка в бассейн. Справка в бассейн. 350 рублей. . Препарат Дженерик Виагра . Недорогая женская одежда оптом в Москве. Женскую одежду больших размеров оптом недорого. . |
