如何动态添加面板到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

您必须创建的组件，然后设置CategoryPanel的PanelGroup属性与CategoryPanelGroup。

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