如何设置richedit输入行的行高？（在线）

Question

如何设置richedit输入行的行高？
比如说一行文字在richedit中所占的高度为5，当时想把当前文字所在的行的行高设为10，文字在下部显示，上部空闲。怎样实现？可以做到吗？请大家帮忙，谢谢。

Answer 1

Richedit1.SelAttributes.Height,这个属性可以试试

Answer 2

http://2ccc.com/article.asp?articleid=1634

Answer 3

总算实现了！
procedure TForm1.Button2Click(Sender: TObject);
var
  pf2: PARAFORMAT2;
begin
  FillChar(pf2, SizeOf(pf2), 0);
  pf2.cbSize := SizeOf(PARAFORMAT2);
  pf2.dwMask := PFM_LINESPACING;
  pf2.dyLineSpacing := 600;
  pf2.bLineSpacingRule := 4;
  SendMessage(richedit1.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
end;

Answer 4

记得
uses
  RichEdit单元！