W sekcji private naszej formy, na której jest TListView umieszczamy dwie zmienne:
[crayon-6518f652413c0552469702/]
Następnie do zdarzeń OnMouseDown, OnMouseMove i OnMouseUp naszego ListView'a podpinamy kolejne procedury:
(w przykładzie główna forma nazywa się TfrmTest, a nasz ListView lvTest)
[crayon-6518f652413c7830958275/]
Autor: Kkkas