界面的问题

Question

我的form上有不少label,button之类的东西。设计的时候就排版好。问题是
如果使用的时候换成大字体（windows里面的属性设置).......
所有的排版就乱了。很多都超出了边框。如果设计的时候按照大字体布局。
则如果使用的时候用户用小字体，又乱的一溻糊涂
（请问如何解决好呢）

Answer 1

下面是解决字体大小的代码:USES typinfo; {Add this to your USES statement.}vari: integer;beginfor i := componentCount - 1 downto 0 dowith components[i] dobeginif GetPropInfo(ClassInfo, 'font') <> nil thenfont.size := (NewFormWidth DIV OldFormWidth) * font.size;end;end;

Answer 2

兄弟。。我从大字体到小字体NewFormWidth =OldFormWidth
（没有变化哟）。（你那个例子是说不同分辨率或者form大小时候自动调整字体
的么）