由于不同版本Windows的PixelsPerInch值可能不同,Delphi会自动调整控件及字体的大小
如果不要这个效果,可把Form的Scaled属性设为False,则在TCustomForm.ReadState时会执行:
if not Scaled then
begin
{ Forces all ScalingFlags to [] }
ScaleScrollBars(1, 1);
ScaleControls(1, 1);
end;
此时将所有TControl及其子类的ScalingFlags设为空,即不再调整字体或控件大小。