richedit的字间距问题（在线等待）

Question

怎么设置richedit的字间距问题，我试了
procedure TForm1.FormShow(Sender: TObject);
var i:int64;
begin
  i:=SetTextCharacterExtra(richedit1.Handle,15);
end;
咋不管用呢？

Answer 1

RichEdit中没有设置行间距的现成属性或方法，非要用此构件的话可能就要用发送消息的
方法实现行间距了，这比较难。你完全可以用RxRichEdit来实现RichEdit的所有功能且能
超过它。在RxRichEdit中实现行间距较简单：
1.选择行间距的样式：
    Richedit.Paragraph.LineSpacingRule:=lsSpecified;
2.设置间距置，下例中为20：
    Richedit.Paragraph.LineSpacing:=20;

Answer 2

theone_jxm() ：我需要的是实现改变字间距