请教大家richedit的行间距、滚动条的问题(100)

请问大家： 1、richedit的行间距能不能调整？我找了一下好像不能，有没有三方控件可以实现，要求d7和d2010均可以使用的控件。 2、向richedit写入数据时，垂直滚动条有时在最顶端，有时在最下端，好像不是固定的，有随机的可能？需要专门设置？ 3、谢谢大家！

网上的代码，不太行 uses RichEdit; {$R *.dfm} procedure RE_SetLineSpacing(ARichEdit: TRichEdit; lineSpacing: Byte); var pf2: ParaFormat2; begin FillChar(pf2, SizeOf(pf2), 0); pf2.cbSize := SizeOf(ParaFormat2); pf2.dwMask := PFM_LINESPACING; pf2.bLineSpacingRule := lineSpacing; SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2)); end; // Example: Setlinespacing to 1: procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.SelectAll; RE_SetLineSpacing(RichEdit1, strtoint(edit1.Text)); end;只能调整成0、1、2三个数字