如何动态地将面板添加到TCategoryPanelGroup。
请给我一个例子,谢谢。
到目前为止,我已经尝试过了。
procedure TWForm.BitBtn3Click(Sender: TObject);
var
categorypanel: tcategorypanel;
begin
categorypanel := categorypanel.Create (categorypanelgroup1);
categorypanel := tcategorypanel.Create(self);
categorypanel.caption:=edit1.text;
end;
最佳答案
您必须创建组件,然后使用CategoryPanelGroup设置CategoryPanel的PanelGroup
属性。
Var
LPanel : TCategoryPanel;
begin
LPanel:=TCategoryPanel.Create(CategoryPanelGroup1);
LPanel.Caption:='My Panel';
LPanel.PanelGroup:=CategoryPanelGroup1;
end;