Fórum Listar Fontes disponíveis no Windows #157919

288 - Mostrar as fontes TrueType Instaladas no Windows
Para testar o exemplo abaixo inclua em seu formulário um componente ListBox, um componente Label e um componente

ListBox.

// Evento OnClick do componente LisBox
procedure TForm1.ListBox1Click(Sender: TObject);
begin
{ Atribui a propriedade Caption do componente Label o nome da fonte selecionada apenas para visualização}
Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
{ Atribui ao componente Label1 na propriedade Name da propriedade Font o nome da fonte selecionada para que o componente Label para utilizar a mesma fonte }
Label1.Font.Name := ListBox1.Items[ListBox1.ItemIndex];
end;
// Evento OnClick do componente Button.
procedure TForm1.Button1Click(Sender: TObject);
begin
{Carrega as fontes instaladas no Windows para o componente ListBox}
ListBox1.Items := Screen.Fonts;
end;

Valeu! Marcelo.

Fernando - Lda - Pr