更专业的办法:
var
NonClientMetrics: TNonClientMetrics;
...
NonClientMetrics.cbSize := sizeof(NonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
Button.Font.Handle := CreateFontIndirect(NonClientMetrics.lfMessageFont);
...
这样将取到和系统一样的字体!