Getting A List Of System Fonts

unit Unit1; interface uses Windows, SysUtils, Classes, Forms, Controls, StdCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormShow(Sender: TObject); begin ComboBox1.Items.Assign(Screen.Fonts); ComboBox1.Text := 'Fonts...'; end; end.

Comments

TScreen, among other things, provides a list of system fonts available for use in your application.  In this example, we grab the list of system fonts in the form's OnShow event, and Assign the list to a ComboBox.  You could also use a ListBox or other control.

.