richedit如何改变字体的粗体、斜体、下划线等属性

Question

如题。
即有三个按钮，分别负责粗体、斜体、下划线等三种属性的切换。
例如第一按钮负责粗体属性的切换，此按钮没点击时默认为非粗体，如果选中richedit中部分文本，并点击此按钮则选中文本均改为粗体，再点击则恢复为常规。如果没有选中richedit中任何文本，并点击此按钮，则这之后输入的文字字体均为粗体。

Answer 1

1.Richedit1.SelectAll; 
  Richedit1.SetFocus; 
2.if fontdialog1.Execute then 
richedit1.Font:=fontdialog1.Font;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);//点一下粗体,再点一下去粗体
begin
  if fsBold in RichEdit1.SelAttributes.Style then
    RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsBold] else
    RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style + [fsBold];
end;

Answer 3

这个方法我会用，可以一次性设置字体的各种属性。我要的是不用到fontdialog，一个按钮只负责一项属性。能否就粗体举例说明一下吗？