delphi 给 Timage 加上滚动条方法

delphi Timage 加上滚动条的方法

1:将  Timage 放入 TScrollBox内，即
   [1]设image1.parent:= ScrollBox1;
   [2]在Object Inspector中将  Timage 拖到 TScrollBox上，使之成为子结点
   [3]先拖一个TScrollBox，再  拖一个 Timage到 TScrollBox 内
2:image1.AutoSize:=true; //必须手动设
    3:  ScrollBox1.AutoScroll:=true;//默认