判断是否滚动条

var  
  Style:   Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);//wnd为控件句柄
  if (Style and (WS_VSCROLL)) <> 0 then
    Caption := 'Yes'
  else
    Caption := 'No';
end;