如何動態添加面板到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;