delphi 判断是否出现滚动条

delphi 判断是否出现滚动条  

 

  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/>

 

来自为知笔记(Wiz)