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;//默认
好的代码像粥一样,都是用时间熬出来的