如何在RICHEDIT中把所选变为粗体/斜体/下划线

[火仔]

我是想按一下按钮就改变状态。

如，选中内容，按一下“粗体”按扭，就能把粗体改成非粗体，把非粗体改成粗体

[constantine]

添加粗体
RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold;
取消粗体
RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style >> fsBold;

其他的都是一样的方法，不会看bcb的例子。
..\Examples\Apps\RichEdit
应该在这个目录里面

[火仔]

只添加下划线之类的我会。

我是想做有可以识别光标前的一个字是否有下划线的功能
该怎么写呢

[jacknes009]

RichEdit1->Text="this is a boy.";
RichEdit1->SelStart=2;
RichEdit1->SelLength=5;
if (RichEdit1->SelLength > 0)
{
RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsUnderline;

}
else
RichEdit1->DefAttributes->Style = RichEdit1->DefAttributes->Style << fsUnderline;