if (GetWindowlong(Stringgrid1.Handle,
GWL_STYLE) and WS_VSCROLL) <> 0 then
   
ShowMessage('Vertical scrollbar is visible!');
  if
(GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0
then
    ShowMessage('Horizontal scrollbar is
visible!');

 

 

来源： <http://blog.163.com/fj_lfx/blog/static/377536832010419102554448/>