如何动态修改Form的TextHeight属性？

Question

如何动态修改Form的TextHeight属性？
我在笔记本电脑上以800*600的模式排版的Form，编译后放在800*600的台式机上
运行，窗体上的一些构件显示不全，而且Form上的构件也变大了，我想通过改变
Form的TextHeight来改变，是否可行？

Answer 1

这个问题应该是操作系统的问题估计你是在win2000设计的，在98运行出现这种问题的，将字体改为China_GB,不要用西文字体就好了

Answer 2

如何将字体改为China_GB呢，请指点
我是在win2000下编译，在win98、win2000、XP下运行的

Answer 3

是这样设置吗？
  Font.Charset := GB2312_CHARSET;

Answer 4

你可以使用坐标映射：
在uses中添加MMSystem.
在程序载入时添加这句代码 SetMapMode(Canvas.Handle,MM_LOENGLISH);
然后再进行其它操作（例如绘图），这时的单位是0.01 inch.
另外你还可以用别的逻辑单位长度来映射：
MM_HIENGLISH : 0.001 inch
MM_HIMETRIC  : 0.01  mm
MM_LOMETRIC  : 0.1   mm
试试吧，我也是查资料查到的。:)

Answer 5

字体用标准的宋体小五，窗体的scaled设为false,OK，给分！