Ускорить удаление элементов из TListView |
Previous Top Next |
Code: |
procedure AddNewListViewItems; var oldViewStyle: TViewStyle; begin odlViewStyle := ListView1.ViewStyle; ListView1.ViewStyle := vsList; ListView1.Items.Clear; { Add new Listitems here } { An dieser werden die neuen ListItems eingefugt } ListView1.ViewStyle := oldViewStyle; end; |
©Drkb::01151
Взято с сайта: http://www.swissdelphicenter.ch