TCustomPanelから派生したコンポーネントにコントロールが追加されないようにするにはどうすればいいですか？

Question

TCustomPanelから派生したコンポーネントを定義しましたが、誤って他のコントロールを誤って追加することがありました。

ランタイム：

TMyPanel = class(TCustomPanel) 
    public 
    //... 
    end; 

設計時：

procedure Register(); 
begin 
    RegisterCustomModule(TCustomPanel, TCustomModule); 
    RegisterComponents('MyTestComponents', [ 
    TMyPanel 
    ]); 
end; 

私はインストールして、誤ってその中に他のコントロールを追加することができ、私のコンポーネントを使用しています誰がそれを望んでいません。 フォーム/フレームの直接子供の場合、コントロールがコンポーネントに追加されないようにするにはどうすればいいですか？

手順動作を再現する：

1. TMyPanelが選択されている間に新しいフォームを作成し
2. は

に新しいコントロールを別のコントロールを追加し、TMyPanel

が追加されますパネルの内側に追加してください。

Answer 1

おそらく（上書きすることができます）最も簡単な方法は、そのコンストラクタでcontrolStyle要素を設定することで、この

よう

interface 

uses 
    VCL.ExtCtrls, 
    VCL.Controls, 
    System.Classes; 

type 
TMyPanel = class(TCustomPanel) 
    public 
    constructor Create(AOwner: TComponent); override; 
    end; 

implementation 

{ TMyPanel } 

constructor TMyPanel.Create(AOwner: TComponent); 
begin 
    inherited; 
    // ... 
    ControlStyle := ControlStyle - [ csAcceptsControls ]; 
end; 

あなたがデザイン時にこの動作を変更できるようにしたい場合、あなたはまた、希望ControlStyleプロパティを公開します。