如何设置TRichEdit字体下划线的模式？ ( 积分: 50 )

我们知道在Word中，字体可设置成带下划线，且下划线可选择多种样式，如双下划线、点下划线等，还可以设置下划线的颜色，请教高手在Delphi中如何实现这种功能？

我们知道在Word中，字体可设置成带下划线，且下划线可选择多种样式，如双下划线、点下划线等，还可以设置下划线的颜色，请教高手在Delphi中如何实现这种功能？

好像只能设置普通下划线，双下划线标准的不支持，好像RxRichEdit也不行<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> &nbsp; &nbsp;RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsUnderline];<br>end;<br><br>只有4中样式， TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);<br><br>另外参考 &nbsp;http://www.delphibbs.com/keylife/iblog_show.asp?xid=539

只能单下划线，TFont设置里就有啊，选中就是了

谢谢 chenybin <br> &nbsp; &nbsp; <br> &nbsp;参考连接 &nbsp; http://www.delphibbs.com/keylife/iblog_show.asp?xid=539 很有用