RichEdit

RichEdit

设置字符颜色

this->RichEdit1->SelStart=2;
this->RichEdit1->SelLength=2;
this->RichEdit1->SelAttributes->Color=clRed;

行间距字符间距

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 := '宋体';

}