Schriftart ändern durch ComboBox in RichEdit

[Niko]

zu 1.:

Delphi-Quellcode:

Combobox1.Items.Clear;
for i := 0 to Screen.Fonts.Count - 1 do
  Combobox1.Items.Add(Screen.Fonts.Strings[i];

zu 2.:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  RichEdit1.SelectAll; // falls du die Schriftart des gesamten Textes ändern möchtest
  RichEdit1.SelAttributes.Name := ComboBox1.SelText;
end;

Edit:

War wohl zu langsam...
Die Lösung von Chris ist aber wohl die einfachere (1.) bzw. sicherere (2.).