如果没有注意到这点,那么软件运行在120下面的话会出现排版混乱的情况。
function IsSmallDPI: boolean;var DC: HDC;begin DC := GetDC(0); Result := (GetDeviceCaps(DC, logpixelsx) = 96); ReleaseDC(0, DC);end;