Hola DarkBlue.
Cita:
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.