W wuyi Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-22 #1 功能是把FORM上的控件自动随着form的大小改变而相应缩放.
A Another_eYes Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-22 #2 tform.scaleby缩小(放大)窗口 然后相应缩小(放大)字体. 字体缩放处理方法如下: uses typinfo; for i := 0 to componentcount - 1 do begin with components do if getpropinfo(classinfo, 'font') <> nil then font.size := trunc(font.size * (新宽度 / 旧宽度)); end;
tform.scaleby缩小(放大)窗口 然后相应缩小(放大)字体. 字体缩放处理方法如下: uses typinfo; for i := 0 to componentcount - 1 do begin with components do if getpropinfo(classinfo, 'font') <> nil then font.size := trunc(font.size * (新宽度 / 旧宽度)); end;
D DNChen Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-22 #3 只要查tform下所有components，然后将宽+高按比例缩放一下，就ok了。
C cyy Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-22 #4 有一个叫 ReSize.OCX 的控件,应该可以解决你的问题. 如果需要,给我EMAIL.
N nickname Unregistered / Unconfirmed GUEST, unregistred user! 1999-08-23 #7 resize 关于TABBEDNOTEBOOK部分写的有问题，我觉得不是很好。 我这里有一个控件，前几天找了很多才找到，可能不错，你要的话 就发个MAIL通知我，是FORMRESIZER
W wuyi Unregistered / Unconfirmed GUEST, unregistred user! 1999-09-01 #8 有控件的朋友们，请给我寄来，待我试用后会给分的，谢谢！ wuyicai@263.net
