richedit如何实现点击按钮后输入的字的字体？

Question

如题。也就是说点击按钮前，richedit中已有的文本字体不改变，但点击按钮后输入的字体则为设置的字体。

Answer 1

Self.RichEdit1.SelAttributes.Name := '文星书宋';

Answer 2

Self.RichEdit1.SelAttributes.Name := '楷体_GB2312';
Self.RichEdit1.SetFocus;Delphi的Demos里有一个演示项目RichEdit，可以参考一下

Answer 3

没想到一行代码就实现了，真是对richedit太不熟悉了！
想再请教一个问题：
粗体、斜体、下划线等属性，分别怎么实现？

Answer 4

Delphi的Demos里有一个演示项目RichEdit，粗体、斜体、下划线等属性的实现都很清楚，非常感谢。