如何在设计时将格式丰富的文本分配给 Delphi TRichEdit 或 TcxRichEdit（可能使用 Lines 属性）？

Question

我只想在设计时将不可变的、格式丰富的文本分配给 RichEdit（或 DevExpress cxRichEdit，它显然是从 VCL RichEdit 继承的）。 我知道如何在运行时使用文本选择和设置该选择的属性来进行大量格式化。 但我不需要这种灵活性——我只是有一些粗体字的长文本，不需要在运行时修改它，这是给用户的一些信息/文档。

我如何在设计时分配这样的文本？ RichEdit 没有针对 Lines 属性的复杂编辑器（至少我找不到）。 我尝试在 Word 中创建 RTF 文档，然后将其值（带有 RTF 标记的文本）复制粘贴到 Lines 属性中，但随后 RichEdit 显示了所有 RTF 标记。 此外，Word 添加了令人难以置信的大量 RTF 附加信息，而不仅仅是到处都是一些 RTF 标签。

如何在设计时添加格式化文本？

Answer 1

IMO 这不可能在设计时添加格式化文本。

您可以在运行时加载它：

RichEdit1.Lines.LoadFromFile(FileName);

Answer 2

我同意@fpiette，不可能在设计时将格式化文本加载到 TRichEdit 中，但可以在设计时将其添加到项目中并在运行时将其加载到 TRichEdit 中。

您可以将 .rtf 文件添加为 RCDATA 资源，然后加载它，例如，在创建表单期间：

procedure TMainForm.FormCreate(Sender: TObject);
var
  LRes: TResourceStream;
begin
  LRes := TResourceStream.Create(HInstance, 'DOCUMENT', RT_RCDATA);
  try
    RichEdit1.Lines.LoadFromStream(LRes);
  finally
    LRes.Free;
  end;
end;