如何在运行时在Delphi TListBox中创建新的MetropolisUI项？

我正在尝试向程序添加一项功能，允许用户在程序运行时向TListBox添加一个新的TMetropolisUIListBoxItem，通过使用三个TEdit组件定制项目的标题、副标题和简短描述

以下是我使用的代码：

procedure TEdit1.EditButton1Click(Sender: TObject);
var
  C : TMetropolisUIListBoxItem;
begin
  C := TMetropolisUIListBoxItem.Create(Self);
  C.Description := Edit1.Text;
  C.SubTitle := Edit2.Text;
  C.Title := Edit3.Text;
end;

但我不知道如何在TListbox中创建它。

---

有人能帮忙吗？

您只需要将listbox1分配给所创建项的父属性：

procedure TEdit1.EditButton1Click(Sender: TObject);
var
  C : TMetropolisUIListBoxItem;
begin
  C := TMetropolisUIListBoxItem.Create(Self);
  C.Description := Edit1.Text;
  C.SubTitle := Edit2.Text;
  C.Title := Edit3.Text;
  C.Parent := listbox1;
end;

---

您使用的是VCL还是Firemonkey？您是否像添加其他项一样将该项添加到FMX控件？可能是“listbox1.addobject（c）”。我认为物品的所有者应该是盒子。Pascal没有名为

TMetropolisUI

的类或任何与之相关的类，因此我删除了Pascal标记。这个问题是特尔斐特有的。请仅使用实际适用于您的问题的标签，以便能够回答问题的人（而不是不能回答问题的人）注意到问题，并在按标签搜索时正确分类。谢谢