怎样设置richedit的行间距？

Question

怎样设置richedit的行间距？

Answer 1

用c写过,思路没错,不过改用delphi写了一个出来,老是出错,没办法了,
各位delphi高手来改写吧.
use richedit;var
  pf:paraformat2;
begin
  pf.cbSize:=sizeof(paraformat2); //识别paraformat与paraformat2
  pf.dwMask:=PFM_LINESPACING;
  pf.dyLineSpacing:=300;          //行距在此设置
  pf.bLineSpacingRule:=4;
  SendMessage(self.richedit1.Handle,EM_SETPARAFORMAT,0,LPARAM(fm));
end; 

Answer 2

写错,是:
var
  pf:^paraformat2;