複合コンポーネントの選択ボックスが正しく描画されない

Question

TCustomControlを継承するTEditとTButton（はい、私は約TButtonedEditを知っています）からなる複合コンポーネントがあります。編集とボタンはコンストラクタで作成され、それ自体に配置されます。

選択ボックスが適切に描画されていません - 私の推測では、編集とボタンがカスタムコントロール用に描画されてから隠されているためです。ここで

比較：私も他のサードパーティのコンポーネントのためにこれを見ている

質問（TcxGridのようにも唯一の選択インジケータの外側部分を描く）：どのようにすることができます私はそれを変える？再生する

ほとんどの単純なケース：

unit SearchEdit; 

interface 

uses 
    Classes, Controls, StdCtrls; 

type 
    TSearchEdit = class(TCustomControl) 
    private 
    fEdit: TEdit; 
    public 
    constructor Create(AOwner: TComponent); override; 
    end; 

procedure Register; 

implementation 

procedure Register; 
begin 
    RegisterComponents('Custom', [TSearchEdit]); 
end; 

{ TSearchEdit } 

constructor TSearchEdit.Create(AOwner: TComponent); 
begin 
    inherited; 
    fEdit := TEdit.Create(Self); 
    fEdit.Parent := Self; 
    fEdit.Align := alClient; 
end; 

end. 

Answer 1

私がコメントで言ったように、私は考えることができる最も簡単な方法は、設計時に親のコントロールをペイントデザイナーからそれらを「隠す」ことです。これを行うには、子コントロールのそれぞれにSetDesignVisible(False)を呼び出します。次に、PaintToを使用して親に絵を描きます。

はあなたの例を使用して、我々が得る：

type 
    TSearchEdit = class(TCustomControl) 
    ... 
    protected 
    procedure Paint; override; 
    ... 
    end; 

constructor TSearchEdit.Create(AOwner: TComponent); 
begin 
    inherited; 
    fEdit := TEdit.Create(Self); 
    fEdit.Parent := Self; 
    fEdit.Align := alClient; 
    fEdit.SetDesignVisible(False); 
end; 

procedure TSearchEdit.Paint; 
begin 
    Inherited; 
    if (csDesigning in ComponentState) then 
    fEdit.PaintTo(Self.Canvas, FEdit.Left, FEdit.Top); 
end;