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

Question

我正在尝试向程序添加一项功能，允许用户在程序运行时向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内部创建它。 有人可以帮忙吗？

Answer 1

您只需将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;