怎样设置RICHEDIT的行距？

Question

怎样设置RICHEDIT的行距，以及怎样读取行距？我需要根据RICHEDIT的内容多少来调整它的大小！请高手赐教！

Answer 1

http://topic.csdn.net/t/20040630/10/3133549.html

Answer 2

procedure   TForm1.RE_SetLineSpacing(ARichEdit:   TRichEdit; 
    lineSpacing,SpacingRule:   Byte); 
var 
    pf2:   ParaFormat2; 
begin 
    FillChar(pf2,   SizeOf(pf2),   0); 
    pf2.cbSize   :=   SizeOf(PARAFORMAT2); 
    pf2.dwMask   :=   PFM_LINESPACING; 
    pf2.dyLineSpacing   :=   lineSpacing; 
    pf2.bLineSpacingRule:=SpacingRule; 
    SendMessage(ARichEdit.Handle,   EM_SETPARAFORMAT,   0,   Longint(@pf2)); 
  
end;

Answer 3

ParaFormat2需要我们自己定义吗？？又是怎么定义的？？

Answer 4

我编译的时候提示ParaFormat2未申明。。还有这个PFM_LINESPACING是什么？也报错