取得目前页面大小方法

　　function GetpageSize (ScrollBar: TScrollBar): Integer; 
　　var 
　　ScrollInfo: TScrollInfo; 
　　begin
　　if HandleAllocated then 
　　begin
　　ScrollInfo.cbSize := SizeOf (ScrollInfo);
　　ScrollInfo.fMask := SIF_PAGE; 
　　GetScrollInfo (ScrollBar.Handle, SB_CTL, ScrollInfo);
　　Result := ScrollInfo.nPage; 
　　end; 
　　end;