如何在不更改面板外观的情况下禁用面板上的 TRadioButtons？

Question

场景

我有一个相当复杂的表单，用于数据输入或查看，不允许编辑，具体取决于状态变量（表单上的颜色和标题会根据状态而变化）。它包含许多包含数据输入类型组件的面板。当处于查看（非编辑）状态时，这些面板被设置为禁用，以防止它们包含的任何组件被更改。

一个面板包含四个 TRadioButton 和一个带滚动条的备注框。由于备忘录中的文本量，我仍然希望能够在查看模式下滚动备忘录框以便阅读所有内容。但是我不想更改备忘录文本或单选按钮。

我试过的

我没有禁用整个面板，而是让它保持启用状态，只是将备注框设置为只读。这允许滚动但不能根据需要编辑备忘录框。

然而，当面板被启用时，这意味着单选按钮也被启用并且可以更改。

如果我将每个单选按钮的已启用属性设置为 false，我可以阻止它们根据需要进行更改，但这也会改变它们的外观并将它们变灰。

问题

如何防止用户更改此面板上的单选按钮，同时保持其外观不变，就好像它们已启用一样，即它们不会变灰？

最小可重现示例

procedure TFrmMember.ShowMemberForm(MemberDisplayMode: TMemberDisplayType);
begin
case FormDisplayMode of

<other stuff in a big case statement depending upon MemberDisplayMode>

ShowNoEdit: begin
            SetFormDisplay(ShowNoEdit);  //set colours and titles etc
            DisableAllControls;          //disable all panels on the form

            //now enable scrolling of the comment memo content but don't allow edits
            PanelComment.Enabled := True;  //enable the panel containing the memo and 4 radiobuttons
            MemoComment.ReadOnly := True;  //don't allow editing of the memo

            //now disable the radio buttons -THIS CHANGES APPEARANCE ??
            RadioButtonCircEmail.Enabled := False;
            RadioButtonCircPost.Enabled := False;
            RadioButtonCircBoth.Enabled := False;
            RadioButtonCircNone.Enabled := False;

            <other stuff>
            end;

    <other stuff in a big case statement depending upon MemberDisplayMode>
    end; //case

end; //procedure ShowMemberForm

Answer 1

在现有面板上放置一个 TPanel 并将 RadioButtons 移动到这个新面板。或者，使用单个 TRadioGroup 而不是在面板上放置单独的按钮。

然后您可以仅禁用新的 Panel/Group，同时保持父面板启用并将 TMemo 设置为 read-only。

如何在不更改面板外观的情况下禁用面板上的 TRadioButtons？

How can I disable TRadioButtons on a panel without changing their appearance?

delphi-2009

radio-button