Получить Список Шрифтов Delphi

Delphi предоставляет разработчикам инструмент для работы со шрифтами на его редакторе форм.

Для того чтобы получить список доступных шрифтов, мы можем использовать класс TScreen, который содержит свойство Fonts. Общий синтаксис метода для получения списка шрифтов из TScreen:

for Index := 0 to Screen.Fonts.Count - 1 do
begin
  // Do something with Screen.Fonts[Index];
end;

Также в качестве альтернативы, можно использовать компонент FontDialog, с помощью которого можно открыть диалог выбора шрифта и получить выбранный шрифт:

var
  FontDialog: TFontDialog;
begin
  FontDialog := TFontDialog.Create(nil);
  try
    if FontDialog.Execute then
    begin
      // Do something with FontDialog.Font;
    end;
  finally
    FreeAndNil(FontDialog);
  end;
end;