如何使财富不选择或高亮？

Question

帮助我明白了财富不能突出显示/禁用高亮或文本选择？也删除游标pos。该应用程序旨在仅显示rtf文本，而不是编辑，因此我不需要这些功能。在delphi

Answer 1

您可以设置SelLength属性设置为0的OnSelectionChange事件

procedure TForm1.RichEdit1SelectionChange(Sender: TObject); 
begin 
TRichEdit(Sender).SelLength:=0; 
end; 

Answer 2

只是为了澄清 - 你肯定需要富文本的功能，如颜色，大小等？你绝对想禁止从你的控制中复制&粘贴到别的地方？这是吗？

我建议你从TRichEdit和继承的方法GetSelTextBuf，CopyToClipboard，CutToClipboard，SelectAll重写OnMouseUp，OnSaveCLipboard，OnSelectionChange ..也许重画，更新和更多。

确保你想要的东西 - 如果你的生活没有丰富的文本功能，那么只需使用一些TLabels并以编程方式编写文本。

如果您必须有丰富的文本，我会看到一些选择 - 为您的组件编写大量的处理程序，或者创建自己的组件，从TRichEdit派生，这使得更容易在一个窗体上显示它们，或者查看在Tori's这样的网站上，看看其他人是否已经制作了这种组合。

祝你好运。

Answer 3

您可以设置RichEdit中的只读属性是真实的 - 这可以防止击键等

Answer 4

你可以简单地禁用的RichEdit防止文本选择和隐藏文本光标：

RichEdit.Enabled := FALSE;