パネルをTCategoryPanelGroupに動的に追加する方法は？

Question

動的にパネルをTCategoryPanelGroupに追加できます。

私に例を挙げてください、ありがとう。

これまで私はこれを試みました。

procedure TWForm.BitBtn3Click(Sender: TObject); 
var 
    categorypanel: tcategorypanel; 
begin 
    categorypanel := categorypanel.Create (categorypanelgroup1); 
    categorypanel := tcategorypanel.Create(self); 
    categorypanel.caption:=edit1.text; 
end; 

Answer 1

あなたはコンポーネントを作成し、CategoryPanelGroupでCategoryPanelのPanelGroupプロパティを設定する必要があります。

Var 
LPanel : TCategoryPanel; 
begin 
LPanel:=TCategoryPanel.Create(CategoryPanelGroup1); 
LPanel.Caption:='My Panel'; 
LPanel.PanelGroup:=CategoryPanelGroup1; 
end;