Как получить системный шрифт Windows?

← →
Tack (2005-01-21 16:20) [0]

Почему-то установленное в True свойство TForm.ParentFont для моего диалогового окна работает не на всех компьютерах.
Т.е. иногда шрифт в диалоге соответствует системному, а иногда нет.
Хочу вручную устанавливать свойство TForm.Font при каждом запуске приложения.

Как получить системный шрифт Windows, который по умолчанию используется во всех системных диалоговых окнах и надписях?

← →
Tack (2005-01-23 00:54) [1]

Помогите!!!!!

← →
GrayFace © (2005-01-23 01:32) [2]

Может быть так:
Font.Handle := GetStockObject(SYSTEM_FONT);

или так:

var NonClientMetrics: TNonClientMetrics; begin NonClientMetrics.cbSize := SizeOf(NonClientMetrics); if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then begin Font:=TFont.Create; Font.Handle := CreateFontIndirect(NonClientMetrics.lfMessageFont); end; end;

Вообще, это взято из procedure TScreen.GetMetricSettings.

GrayFace, спасибо!!!!!

Как получить системный шрифт Windows? Найти похожие ветки