调整RichEdit行间距、字符间距

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   PARAFORMAT2 pf;
  pf.cbSize=sizeof(PARAFORMAT2); //识别paraformat与paraformat2
  pf.dwMask=PFM_LINESPACING;
  pf.dyLineSpacing=300; //行距在此设置
  pf.bLineSpacingRule=4;

  SendMessage(RzRichEdit1->Handle,EM_SETPARAFORMAT,0,LPARAM(&pf));
  RzRichEdit1->Enabled = false;
 

  RichEdit1.SelAttributes.Name := '宋体';