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