bestlong 怕失憶論壇

標題: 列出全部字型清單 [打印本頁]

---

作者: bestlong    時間: 2007-10-19 16:49     標題: 列出全部字型清單

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

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

複製代碼

---

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)

Powered by Discuz! X1.5