Zitat von
minimops:
Eine Idee?
Leider nicht. Am einfachsten wäre es wohl den Font-Dialog nachzubasteln und dann alles selbst zu erledigen.
Falls Du es so machen willst, die Schriften könnte man auf folgende Art in eine Listbox laden:
Delphi-Quellcode:
Listbox1.Items.Clear;
Listbox1.Items.AddStrings(Screen.Fonts);
...
...