关于 TRichEdit的赋值操作问题： 我在一个mainForm 上方一个richedit 然后 编辑的时候，重新打开一个 form 上有 richedit ，可在新form

Question

关于  TRichEdit的赋值操作问题：
 我在一个mainForm 上方一个richedit 然后 编辑的时候，
 重新打开一个 form 上有 richedit ，可在新form 中 的那个 richedit 的文本 就没有了 在mainform中 特性了，比如文本时红颜色的，可在新的form 就没有颜色了，全部时春文本。
比如 ：
    mainForm中的 RContent:TrichEdit;
    NewForm 中的 NRContent:Trichedit;
调用的时候：
   我用了三种方法：都是一个结果：     RContent.lines.savetoStream(Stream)
     NRcontent.lines.loadformStream(Stream)
     NRcontent.text:=Rcontent.Text;    直接吧数据库中保存的值放到 NrContent中
    NRContent.text:=。（）.asstring;可结果都一样，没有保存字体等一些属性但是我在新创体重设置好之后，关闭之后，在mainForm中的 Rechedit，就显示了 修改之后的属性！
    

Answer 1

procedure TfmMain.N2Click(Sender: TObject);
var
  Pnode:Tpnode;
  ms:TmemoryStream;
begin
  if self.TreList.Selected=nil then Exit;
  Pnode:=self.TreList.Selected.Data ;
  if Pnode=nil then Exit;  with TfmAddEdit.Create(self) do
  try
    caption:='ÐÞ¸ÄÎÄÕÂ('+self.StatusBar1.Panels[0].Text+')';
    try
///////////////////////////
      qryMX.Close;
      qryMX.SQL.Text:=Format('Select * From hlp_tt±êÌâÄÚÈݱí where ±êÌâID=%d and ·ÖÏîID=%d',[Pnode.ID,self.TabID[self.tabcontrol1.tabindex,1]]);
      //self.Caption:=self.qryMX.SQL.Text;
      qryMX.Open;
      if not  qryMX.Eof
      then Rcontent.Text:=qryMx.fieldbyname('ÄÚÈÝ').AsString   // 没有把属性 给传递过来
      else Rcontent.Lines.Text:='';
///////////////////////////
    except
      On E: exception do
      begin
        ShowMessage(E.message);
        Exit;
      end;
    end;
    if ShowModal<>mrOk then Exit;
    ms:=TmemoryStream.Create;
    try
      ms.Clear;
      Rcontent.Lines.SaveToStream(ms);
      QryMX.Close;
      QrymX.sql.Text:=format('Select *  from hlp_tt±ê&Igrave;&acirc;&Auml;&Uacute;&Egrave;&Yacute;±í where ±ê&Igrave;&acirc;ID=%d and ·&Ouml;&Iuml;&icirc;ID=%d',[Pnode.ID,self.tabid[self.tabcontrol1.tabindex,1]]);
      QryMx.open;
      QryMx.Edit;
      TBlobField(Self.QrymX.FieldByName('&Auml;&Uacute;&Egrave;&Yacute;')).LoadFromStream(ms);
      QryMx.Post;
      self.Current:=-100; //&Ccedil;&iquest;&Ouml;&AElig;&Euml;&cent;&ETH;&Acirc;&Ecirc;&yacute;&frac34;&Yacute;
    finally
      ms.Free;
    end;
  finally
    Release;
  end;end;