寻找富文本编辑控件！

Question

类似FoxMail的编辑页面，在控件中能设置字体、大小、颜色、编号等，对齐方式，插入图片等功能，另外想问，想这样设置后的数据，保存到数据库，再取出来格式是否一致，要求能一致的，能数据绑定更好，这种情况不知各位是如何解决的？

Answer 1

RichView很不错，我们一直用它！A:你怎么又用我的RichView啊？
B:我的都让我老伴给用了

Answer 2

汗。RichView,更干，更爽，更安心。

Answer 3

哎呀,大家的恢复怎么都这么色情啊!RichView我试了,拷贝文字进去,修改时发现老是乱码啊,不知你们有没有这种情况?

Answer 4

用richedit存为rtf格式的文件，之后再写入数据库，要用时读出来.

Answer 5

谁有richedit使用的例子，谢谢啊，最好能演示一下设置字体，对齐方式等，有劳了！

Answer 6

function CurrText: TTextAttributes;
begin
  if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes
  else Result := RichEdit1.DefAttributes;
end;
//字体********************
CurrText.Name := 字体名称
//对齐
RichEdit1.Paragraph.Alignment := taLeftJustify;  //左
RichEdit1.Paragraph.Alignment := taCenter;       //中
RichEdit1.Paragraph.Alignment := taRightJustify; //右

Answer 7

谢谢大家，我最后看Delphi的帮助了！
procedure TForm1.Button1Click(Sender: TObject);begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('This line of text will be red.');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.DefAttributes.Color := clBlue;
  RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;