本文整理自网络,侵删。
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!');
相关阅读 >>
Delphi 打开win8及以上操作系统的系统已安装程序目录
Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)
Delphi deletedirectory 删除目录下所有文件包括子文件夹下所有文件
更多相关阅读请进入《Delphi》频道 >>