获取滚动条的高度和宽度 var SbarWh,SbarHt:integer;begin SbarHt:=getsystemmetrics(SM_CXHSCROLL);//水平滚动条的高度 SbarWh:=getsystemmetrics(SM_CYHSCROLL);//垂直滚动条的宽度 lblWidth.Caption:='宽度:'+ inttostr(sbarwh)+ 'Pixels ' + ' 高度:' + inttostr(sbarht)+ 'Pixels';end;