老
老赵
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure InitHintFont;
var
NonClientMetrics: TNonClientMetrics;
HFont: TFont;
begin
HFont := TFont.Create;
NonClientMetrics.cbSize := SizeOf(NonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
HFont.Handle := CreateFontIndirect(NonClientMetrics.lfStatusFont);
end;
var
NonClientMetrics: TNonClientMetrics;
HFont: TFont;
begin
HFont := TFont.Create;
NonClientMetrics.cbSize := SizeOf(NonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
HFont.Handle := CreateFontIndirect(NonClientMetrics.lfStatusFont);
end;