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

← →
Tack (2005-01-22 13:36) [0]

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

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

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

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

← →
Cobalt © (2005-01-23 02:53) [2]

http://asysoev.nm.ru/ForForums/Delphi2005_is_Bugs_Bag.htm
Смотри баг №6 - может, это натолкнет тебя на решение.

P.S. Что значит "Системный шрифт"? Ты имеешь в виду настройки "Свойства: Экран"-> "Оформление"?

Ну, я предполагаю, системный шрифт - это тот шрифт, который используется в стандартных диалогах Windows (типа "Форматирование дискеты") в сообщениях, контролах, статическом тексте и т.д.

Я пока поставил так:
Form1.Font := Screen.IconFont;

Т.е. принял по умолчанию шрифт с рабочего стола. Может, это и есть решение? Пока проверил на WinXP и Win98 - работает.

Но все равно хотелось бы как-нибудь получать LOGFONT для шрифта, который стоит для системных диалогов по умолчанию. Сколько ни смотрел API - не нашел такого. :-(

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