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