VCL Delphi

Title: Number of items in a ListView
This example shows, how to get number of items that can fit vertically in the visible area of a list view control.
SendMessage(ListView1.Handle, LVM_GETCOUNTPERPAGE, 0, 0);