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