PageCount (ImageList Control) example for Delphi 4

Write OnScroll event handler as follows:

 

procedure TForm1.LEADImgList1Scroll(Sender: TObject);
begin
ShowMessage('Page: ' + IntToStr(LEADImgList1.CurrentPage) + ' of ' + 
                  IntToStr(LEADImgList1.PageCount));
end;