tobjectlist

[ecfisa]

Hola DarkBlue.

Empezado por DarkBlue

intento usar tobjectlist, pero no puedo es por que uso delphi 7?

No puede ser por eso. Seguramente te falte incluir la unidad Contnrs.

Te pongo un ejemplo muy simple:

Código Delphi [-]
...
implementation

uses Contnrs;

var
  ObjLst: TObjectList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ObjLst:= TObjectList.Create;
end;

procedure TForm1.btnCrearClick(Sender: TObject);
var
  i: Integer;
  CheckBox: TCheckBox;
begin
  for i:= 1 to 10 do
  begin
    CheckBox:= TCheckBox.Create(Self);
    with CheckBox  do
    begin
      Left  := 20;
      Top   := i * 30 + 20;
      Name  := 'CheckBox'+IntToStr(i);
      Parent:= Self
    end;
    ObjLst.Add(CheckBox)
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ObjLst.Free
end;

Un saludo.