If FontDialog.Execute then Edit.Font := FontDialog.Font;
Здесь показан пример изменения шрифта в компоненте Edit. Причем во время вызова диалога FontDialog
в нем изначально будет установлен шрифт, заданный в компоненте Edit.
Свойство Device указывает типы отображаемых шрифтов. fdBoth - все, fdPrinter - принтерные, fdScreen
- экранные.
