关于窗体滚动条的问题？？（我已经将AutoScroll设置为True）

Question

问题1 如何判断窗体的滚动条是否已经出现
问题2 如果滚动条出现的话，用PageUP PageDown 上下滚动，（当然，滚动条到顶或到底就停止向下或向上滚动） （我将窗体的 AutoScroll 设为True）   先谢谢所有看帖的朋友！谢谢！

Answer 1

问题1：我猜想（不一定对）
form每次onpaint或者onresize的时候遍历一下所有控件，看看有没有scrollbar

Answer 2

问题已经解决！    33 : begin //Page Up
      with self.VertScrollBar do
      begin
        Position := position - 100;
      end;
    end;
    34 : begin //Page Down
      with self.VertScrollBar do
      begin
        position := position + 100;
      end;
    end;