Moin Profiz,
wenn es Dir genügt die Schriftarten in der ComboBox zur Auswahl zu haben, kannst Du es so machen:
ComboBox1.Items.Assign(Screen.Fonts);
und um die Zuweisung zu machen musst Du im OnChange der ComboBox nur
Delphi-Quellcode:
if ComboBox1.Items.IndexOf(ComboBox1.Text) > -1 then begin
RichEdit1.Font.Name := ComboBox1.Text;
end;
eintragen.
Künftig bitte daran denken: Zwei Fragen - Zwei Threads!
(auch wenn ich natürlich Verständnis dafür habe, dass die Fragen für Dich zusammengehören, es erschwert aber anderen die Suche)
Danke.