如何保证两个RichEdit控件步调一致?

Question

有两个RichEdit控件RichEdit1,RichEdit2。
假定：
RichEdit1.Clear;
RichEdit1.Lines.LoadFromFile('1.rtf');
RichEdit2.Clear;
RichEdit2.Lines.LoadFromFile('1.rtf');
提问：
现在对RichEdit2进行文字输入、设定字体、段落靠齐、删除等操作，
如何使RichEdit1中的内容与RichEdit2同步变化？即RichEdit1始终实时与RichEdit2中内容一致？

Answer 1

在RichEdit1的onChange事件里，把内容赋给RichEdit2

Answer 2

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
richedit2.Text:=richedit1.Text;
end;

Answer 3

对就是在onchange事件，同意楼上的！

Answer 4

richedit2.font := richedit1.font;

Answer 5

写代码的时候，对richedit1，richedit2，写一样的代码就完了

Answer 6

richedit2.Text:=richedit1.Text;
richedit2.font := richedit1.font;

Answer 7

var 
aa:TMemoryStream;
begin
aa:=TMemoryStream.create();
RichEdit2.Lines.SaveToStream(aa);
aa.Position:=0;
RichEdit3.Lines.LoadFromStream(aa);
aa.free();
end;

Answer 8

onChange事件里
    richedit1.font:=richedit2.font