Mega Code Archive

 

Categories / Delphi / System

 

How to get and display system fonts on your pc

{I was surprised to find a quick and easy way to get a list of system fonts. I have seen code that are over 15 lines of code this one is 2 lines.} procedure TForm1.FormCreate(Sender: TObject); begin ComboBox1.Items.Assign(Screen.Fonts); ComboBox1.ItemIndex:=0; end; procedure TForm1.ComboBox1Change(Sender: TObject); begin Label1.Font.Name:= ComboBox1.Text; end;