Hola,
A mí a bote pronto se me ocurre que uses variables "TObjectList", de tal forma que puedas ir guardando una referencia a cada objeto que creas, y puedas destruir estos según te sea menester. El código de más abajo está escrito en un momento, no me he parado mucho en el mismo, pero, como puede verse en el ejemplo que adjunto, aparentemente, al menos, consigue más o menos lo que te propones: ciñéndome en el ejemplo a unas cuantas "TLabel". Eres libre de mejorarlo y modificarlo como mejor te parezca. Si algún error de bulto hay, por favor, nadie se prive en comunicarlo. Gracias.
Código Delphi
[-]
unit UfrmEjemplo;
interface
uses
Forms, Classes, Controls,
StdCtrls, SysUtils, Spin,
Contnrs;
type
TfrmPrincipal = class(TForm)
SpinEdit: TSpinEdit;
procedure FormCreate(Sender: TObject);
procedure SpinEditChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
listaEtiquetas: TObjectList;
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
listaEtiquetas := TObjectList.Create;
end;
procedure TfrmPrincipal.FormClose(Sender: TObject; var Action: TCloseAction);
begin
listaEtiquetas.Free;
end;
procedure TfrmPrincipal.SpinEditChange(Sender: TObject);
var
i: integer;
nLabel: TLabel;
begin
if (SpinEdit.Value > listaEtiquetas.Count) then
begin
nLabel := TLabel.Create(Self);
nLabel.Top := 10;
nLabel.Left := 10;
nLabel.Parent := Self;
nLabel.Caption := 'Etiqueta: ' + IntToStr(listaEtiquetas.Count+1);
if listaEtiquetas.Count >= 1 then
nLabel.Top := TLabel(listaEtiquetas.Items[listaEtiquetas.Count-1]).Top + 20;
listaEtiquetas.Add(nLabel);
end
else
for i := listaEtiquetas.Count-1 downto SpinEdit.Value do
begin
if (i >= 1) then
listaEtiquetas.Delete(i)
else if (i = 0) then
listaEtiquetas.Delete(0);
end;
end;
end.