procedure TForm1.FormCreate(Sender: TObject);var i: Integer;begin for i := 0 to 9 do ListBox1.Items.Add('Item' + IntToStr(i));end;{把 ListBox1 克隆到 Panel1}procedure TForm1.Button1Click(Sender: TObject);begin Panel1.AddObject(ListBox1.Clone(Self));end;
联系客服