Delphi Tips Trick

For Newbie

Iklan Responsive Atas

LightBlog
Responsive Ads Here

Tuesday, 15 November 2011

Enum Fonts Delphi



Displays list / list of fonts installed on the system.

Use the command Screen.Fonts.

Example of use:
TForm1.FormCreate procedure (Sender: TObject);
var
   i: Integer;
begin
   ComboBox1.Items.Clear;
   for i: = 0 to Screen.Fonts.Count - 1 do
     ComboBox1.Items.Add (Screen.Fonts.Strings [i]);
end;

No comments: