VertScrollBar на форме

[Filka]

procedure TForm1.Button1Click(Sender: TObject);
begin
  case GetWindowLong(Handle, GWL_STYLE) and (WS_VSCROLL or WS_HSCROLL) of
    0:          ShowMessage('Скроллбаров нет');
    WS_VSCROLL: ShowMessage('Вертикальный');
    WS_HSCROLL: ShowMessage('Горизонтальный');
  else
    ShowMessage('Вертикальный и горизонтальный');
  end;
end;

[evg_m]

http://www.programmersforum.ru/showthread.php?t=258738