delphi Timage 加上滚动条方法

elphi 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;//默认

posted on 2019-02-26 20:02  癫狂编程  阅读(844)  评论(0编辑  收藏  举报

导航

好的代码像粥一样,都是用时间熬出来的