如何在設計時將格式豐富的文本分配給 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;