关于richEdit字体颜色设置
一个窗口有两个RichEdit控件.
我在RichEdit2设置好字体颜色后.
通过
RichEdit1.Lines.Add(RichEdit2.text)
这样加上去后.
发现原来在RichEdit2中设置的字体属性都没有了.
如果是直接通过手工COPY过去的话,属性都正常的.
到底应该怎么做呢?
我知道用过SelAttributes是可以改的,但这样做的前提条件是要选定一部分文字
可我这里没用到选定文字啊.
怎么办?
[解决办法]
用剪贴板中转可以实现。
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Size := 20;
RichEdit1.SelAttributes.Color := clRed;
ClipBoard.SetTextBuf( '测试文本! ');
RichEdit1.PasteFromClipboard();
end;
不要随便使用 Lines属性。