Отображаются ли полосы прокрутки для TStringGrid?

Previous  Top  Next

    
 

 

Code:

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!');

 

©Drkb::01099

Взято с сайта: http://www.swissdelphicenter.ch