Получить все выделенные элементы TListView |
Previous Top Next |
Code: |
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin with Listview1 do // MultiSelect := True; // ViewStyle := vsReport; for i := 0 to Items.Count - 1 do if Items[i].Selected then Items[i].Caption := Items[i].Caption + ' - Selected!'; end; |
©Drkb::01142
Взято с сайта: http://www.swissdelphicenter.ch