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

[jupiter418]

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

[varick_zhong]

用它的selstart,sellength

[jupiter418]

[Quote=引用 1 楼 varick_zhong 的回复:]
用它的selstart,sellength
[/Quote]
希望能具体一点，最好写一段代码，谢谢了！

[kye_jufei]

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

[喝口水]

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;

[jupiter418]

[Quote=引用 3 楼 kye_jufei 的回复:]
Delphi(Pascal) code
1.Richedit1.SelectAll;
Richedit1.SetFocus;
2.if fontdialog1.Execute then
richedit1.Font:=fontdialog1.Font;
[/Quote]
这个方法我会用，可以一次性设置字体的各种属性。我要的是不用到fontdialog，一个按钮只负责一项属性。能否就粗体举例说明一下吗？

[jupiter418]

[Quote=引用 4 楼 hys_427 的回复:]
procedure TForm1.Button2Click(Sender: TObject);//点一下粗体,再点一下去粗体
begin
if fsBold in RichEdit1.SelAttributes.Style then
RichEdit1.SelAttributes.Style:=RichEdit1.SelAttributes.Style-[fsBold] else
……
[/Quote]
谢谢，就是要这种效果。

[anxiangcanliu2003168]

谢谢，也帮助我了