列出全部字型清單

bestlong

全部的字型可以利用 TScreen 的 Fonts 屬性來取得，最簡單的程式如下：

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. begin
   
3.   Memo1.Lines.Assign(Screen.Fonts);
   
4. end;

複製代碼