firemonkey - 如何使用代码添加 TListBoxGroupHeader

Question

我有一个带有 TListBox 的 fmx 表单（C++ Rad Studio）。在设计时，我可以右键单击 ListBox，然后在项目编辑器中添加一个 GroupHeader。是否可以在代码中做到这一点，或者它只是设计时的一个选项？

谢谢，拉斯

Answer 1

如果您的 TListBox 被称为“MyListBox”，这就是您将它添加到 Delphi 列表末尾的方式：

var
  lListHeader: TListBoxGroupHeader;
begin
  lListHeader := TListBoxGroupHeader.Create(MyListBox);
  lListHeader.Parent := MyListBox;
end;